
DES PROGRAMMES POUR VOTRE 
ORDINATEUR : apple n e t u e . casio fx 702-p. 

COMMODORE VIC 20. HEWLETT PACKARD HP 41 et HP 75. 
MULTITECH MP-FII. ORIC 1. SHARP PC 1211, PC 1251, PC 1500, 
MZ 80. SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS 
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DEUX SUPER CONCOURS ".lOOOOfrancsde 
prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 



Le langage LOGO 

Diane CHERROE-BENUTAN. 

LOGO est un terme qui a ete choisi, au milieu des annees soixante, 
par reference au grec AoyoC qui signifie pensee, raisonnement, dis- 
cours. II refere a la fois a un langage de programmation, a une philo- 
sophie de I'education et a une collection doutils pedagogiques 
con t roles par ordinateur. LOGO est act uellementt res sou vent asso- 
cie au monde de I'education. et en general au public des tresjeunes 
enfants Historiquement, le projet LOGO se situait a la convergence 
de recherches en Intelligences Artificielles (une branche de I'lnfor- 
matique) et en Sciences de I'Education. Mais, a I'encontre de I'En- 
seignement Assiste par Ordinateur, oil la machine est chargee de 
transmettre a I'enlant un certain nombre de savoirs predetermines, 
avec LOGO, c'est I eleve qui enseigne des choses a sa machine. Plus 
exactement.ii utilise la puissance deroutilinformatique pour explo- 
rer un certain domaine de connaissance. Pour chaque "micro- 
monde" (quelque chose qui n'est pas absolument sans rapport avec 
les disciplines de I'enseignement traditionnel, mais n'est pas tou- 
joursaussi cloisonne), un objet particulierpermetd'alleraladecou- 
verte de faits. sur lesquels on a deja une connaissance agissante 
souvent sans y avoir jamais reflechi. 

Voyons cela sur quelques exemples. Et pour ne pas commencer par 
les habituels graphismes de tortue, observons par exemple un eleve 
qui veut - avec 1'ambition qu'ont toujours les debutants - enseigner 
a I'ordinateur a conjuguer tous les verbes. 
"Pourquoi utiliser LOGO pour ca. BASIC est bten suffisant!" 

Suite page 4 
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Un HEBDOMADAIRE dont le n n 1 
va du 7 octobre au 20 octobre ? 
lis sont completement fous a la 
redaction d'HEBDOGICIEL! 
N'oubliez pas qu'HEBDOGICIEL 
est VOTRE journal et que c'est 
vous, lecteurs, qui allez en etre 
les journalistes remuneres. 
Alors, pour le n n 2, nous vous 
laissons une semaine pour nous 
envoyer le plus rapidement pos- 
sible vos meilleures realisations. 

Notre vocation est de stimuler la 
creation dans le domainedel'in- 
formatique grand public en vous 
faisant phosphorer, de vous 
apporter I'aide dont vous avez 
besoin pour progresser, de 
remunerer les logicielset primer 
les meilleurs. Nous attendons.le 
microprocesseur fremissant, 
vos listings et vos cassettes. 

De Maison Neuve 



Encore un nouveau journal 
d'informatique ? Oui, encore un. 
Un de plus, devrais-je dire. Mais 
vous allez voir que la formule du 
journal est originale a plus d'un 
titre. Tout d'abord, c'est un heb- 
domadaire, vous naurez plus a 
attendre un mois pour avoir 
votre journal favori. 

Ne vous attendez pas a trou- 
ver I'essai du dernier ordinateur 
sorti, vous le trouverez dans vos 
mensuels habituels. Pas de 
cours techniques, pas de 
conseils pour acheterun ordina- 
teur. pas de cours de basic, vous 
trouverez d'excellents livrestrai- 
tant de ces sujets. 

Nous, ce qui nous interesse, 
c'est le SOFT: les logiciels, les 
programmes, les nouveaux Ian- 
gages et cela seulement pour 
les ordinateurs familiaux. 

Vous avez tous fait un pro- 
gramme plus ou moins long qui 
puisse interesser les utilisateurs 
du meme ordinateur que le 



votre, un programme de jeu, un 
programme qui facilite la pro- 
grammation ou meme une 
simple astuce qui augmente les 
performances de votre 
machine. Ce programme, HEB- 
DOGICIEL va le publier, vous 
allez devenir les journalistes de 
votre journal. 

Notre objectif est de faire cir- 
culer les programmes francais 
et de, excusez du peu, faire cir- 
culer "La Pensee Informative 
Francaise". 

Nous serons seulement les 
moteurs de ce mouvement en 
organisant les deux concours 
permanents d'HEBDOGICIEL et 
en remunerant 1000 francs la 
page imprimee pour les pro- 
grammes, les astuces et le 
redactionnel, envoyes par les 
lecteurs. Les programmes recus 
seront testes par nos specialis- 
tes et si votre programme n'est 
pas tout a fait au point, ils vous 
indiqueront comment le modi- 
fier pour qu'il puisse etre publie. 
Dans ce premier numero, une 
partie des programmes a ete 
Suite page 20 
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POKER 



Frederic DARIN 



En ces temps de rigueur,gagner 50O Dollars au poker n'est pas a la 
portee des citoyens honorables que nous sommes.Mais grace au program- 
me suivant,vous garderez une conscience propre et un carnet de change 
vierge.Soyez sur vos gardes tout de meme-, car la facon dont vous tre- 
pignerez devant votre HP41 incitera tout Stre sense a vous faire en- 
fermer au plus vite I Mais quelle importance, si vous gardez votre 
HP41 111 

Vous aurez besoin de 190 registres de memoire done une HP41C et 2 
modules memoir es ou une HP 4 1CV . Taper les trois programmes. XEQ"SIZE 36" 
et mode USER. 

Les cartes sont representees par leur valeur jusqu"a 10. Le valet par la 
lettre "V",la dame par"D",le roi par "R" et l'as par "A".Chaque carte 
est suivie de sa couleur.Les possibilites de la HP41 incitent a creer 
de nouvelles couleurs. . .Celles utilisees sont les suivantes; +,%,4 * 
Les cartes sont separees par des virgules. 

Rappelons d'abord les regies du Poker;vous jouez seul a l'aide de la 
machine. Vous engagez une certaine somme qui represente le montant de 
votre banque.A chaque tour parieztdans la limite de 10 ) toute ou 
partie de votre banque;c'est la raise. La HP41 vous propose cinq cartes. 
Vous allez tenter une figure parmi les suivantes; 
-2 paires;2 groupes de deux cartes de meme valeur 
-Brelan; 3 cartes de valeur identique 
-Suite;main dont les cartes ont des valeurs qui se suivant mais dont les 

couleurs sont differentes. 
-Couleur ;toutes les cartes sont de la meme couleur. 
-Full;main comportant une paire et un brelan 
-Carre;quatres cattes de valeur identique 

-Suite couleur;une suite dont les cartes ont la meme couleur. 
-Suite Royale;une suite couleur de la forme;AS, ROI, DAME, VALET, DIX. 
Apres l'apparition a 1 ■ ecran du premier tirage,vous pouvez en demander 
un deuxieme du nombre de cartes voulu (jusqu'a 4) .Vous conservez done 
quelqies cartes et changez le reste.Si alors vous reussissez une 
figure, vous gagnez d 1 apres les rapports suivants; 

x 2 -Full ;mise x 10 

3 -Carre ; " 40 

4 -Suite couleur; " 50 
8 -Suite Royale.; " 500 I! 

Si vous gagnez, vous pouvez tout remettre en jeu en tentant un ou 
plusieurs Quitte ou Double. Cardiaques et nerveux,abstenez-vous 111 
Utilisation du programme ; 



-DEUX PAIRES 
-Brelan. .... 

-Suite 

-Couleur, ... 



Operations 



Aff ichages 



-1- XEQ"PR n MASCOTTE ? 

Introduire semence telle que < sentence < 1 puis R/S 

-2- BANQUE ? 

Tapez la somme que vous engagez puis R/S 

-3- MERCI BIEN... 

Machine obseqaieuse. , . 

-4- MISE ? 

Tapez la mise engagee pour ce tour puis R/S. Si vous desirez parier 
la meme somme qu'au tour precedent, tapez seulement R/S. 

-5- 5*,3%,R%,10+,5%, 

Affichage du premier tirage.Pour changer les cartes, les considerer 
a partir de la gauche de l'ecran.Ici la premiere est le 5 etc... 
Gardons les deux 5. Nous voulons done changer les deuxieme, troi- 
sieme et quatrieme cartes. Tapons done 234 et R/S.(l*ordre n'impor- 
te pas). Si nous avions voulu garder la meme main, nous taperions 
et R/S.Presser la touche B pour revoir le tirage. 

-6- +++C0RRBCT++ 

La HP41 affiche ce message autant de fois qu'il y a de cartes a 
changer . 



HP cherche. . . 

5»,5+,V+,25i,55£, 

Affichage du deuxieme tirage. Vous gagnez avec un brelan de cinq I 
-7- DOUBLE ? 

Tentez-vous le quitte ou double ?Si vous n'osez pas pressez la 

touche ENTER(pour Hon) et allez en (9) 

Sinon pressez R/S 
-8- UN ou ZERO ? 

Pressez l'un ou l 1 autre et R/S. Si vous gagnez allez en (7). 

Si vous perdez DOMMAGE et allez en (4) 

-9- 5*,5+,V+,2%,5%, f-a 

puis BANQUE=.... V7 

Allez en (4) a 

DESCRIPTION DES PROGRAMMES 

"RE" ;Tirages et constitution des mains 

"WI";Determination des gains 

"AW^;Routine d" affichage des mains. 

REGISTRES UTILISES ; 

00 ; Semence 

01 a 05;valeur des cartes du tour-entre 1 et 13 

06 ;pointeur 

07; mise 

08 ; Banque 

09 et 10 ; point eurs 

11 a 15; couleurs de la main 

16 a 20;cartes alpha 

21 a 33;valeur des cartes entre 1 et 52 puis entre 1 et 13(dans WI) 

34;pointeur cartes alpha 

35;pointenr couleurs 

DRAPEAUX ; 00"; utilise" dans RE lors de tirage de cartes superieures a 10 
ainsi que lors du "Quitte ou Double" 
05 ; arme lors d'une couleur 
07;brelan 
08;paire 

Enfin quelques conseils;si la musique vous gene,n'hesitez pas;tapez 
CF 26 et vous gagnerez au moins en silence et en rapidite.La HP41 
refusera toute entree illegals telle qu'une mise de lOOOdollars. . . . 
Quant a y faire parier vos petits copains,allez-y,et conservez les 
meilleures semences, vous pourrez toujours en epater.... 




8HL6L "RE- 


93 INT 


185 STO IND 35 


81»LBL ■»!■ 


92 ENTERt 


82 21.83 


94 4 


186 


RUN 


82 SF 25 


S3 5 


83 STO 89 


95 X<Y? 


187 


XEQ 16 


83 ■ — *--*-* 


*" 94 NOD 


84»LBL 64 


96 GTO B 


188 FC?C 88 


84 ftVIEH 


95 X*8? 


85 XEQ 16 


97 XOY 


189 flRCL X 


85 SF 99 


96 GTO 83 


86 STO IHIi 69 


98 RCL 86 


198 


"K:.-" 


86 TONE 9 


97 RIN 


87 RCL 63 


99»LBL 17 


191 


flSTO IND 34 


87 EREG 21 


98 5 


88 INT 


188 ENTERt 


192 RTN 


88 CLZ 


99 ' 


89 .82 


161 ENTERt 


193»L6L 81 


89 EREG 25 


166 3 


i8 * 


182 18 


194 CLA 


18 CLE 


181 X=Y? 


ii STO 8b 


183 KOD 


195 STO IND 18 


11 1.885 


182 GTO 88 


I2*LBL 85 


184 5 


196 


2 


12 STO 18 


183 XOY 


13 DSE 86 


185 X<T? 


197 


STO IND 35 


13 CLfl 


184 ENTERt 


14 GTO 86 


186 GTO 6 


198 RDN 


14*L8L 81 


185 2 


15 GTO 87 


187 RUN 


199 XEO 16 


15 RCL INB 18 


186 i 


16*LBL 18 


188 - 


288 FC?C 88 


16 28 


187 FACT 


17 RCL 86 


189 18 


281 ARCL I 


17 t 


168 LflSTX 


18 9821 


US / 


282 


•Yi, m 


18 1 


189 5 


19 * 


111 DSE V 


283 ASTO IND 34 


19 ST+ IND Y 


lie - 


26 .211327 


112 GTO 1? 


284 RTN 


28 ISG 18 


111 FACT 


21 t 


!13»LBL C 


285»LBL 82 


21 GTO 81 


112 ■■ 


22 FRC 


114 RCL 86 


286 CLfl 


22 21.834 


113 XEQ 18 


23 STO 88 


115 X=8~ 


287 


STO IND 18 


23 STO 18 


114 X=Y? 


24 52 


116 GTO -«I 


288 


3 


24»LBL a 


115 GTO 13 


25 t 


117 1 El 


289 STO IND 35 


25 RCL IND 16 


116*LBL b 


26 INT 


118 / 


216 RDN 


26 ISG 18 


117 XEQ 15 


27 1 


119 INT 


211 XEO 16 


27 GTO 66 


118 FC?C 85 


28 t 


126 STO 86 


212 FCC 88 


28 FC?C 87 


119 GTO 11 


29 RTN 


121 LASTS 


213 flfiCL X 


29 GTO 87 


126 XEQ -flk" 


38HEL 86 


122 FRC 


214 


■K," 


38 TONE 7 


121 8 


31 RCL INI 69 


123 1 El 


215 flSTO IND 34 


3i TONE 7 


122 GTO 12 


32 RCL INIi 66 


124 t 






32 TONE 7 


123»L6L 11 


33 X»Y? 


125 5 






33 XEO "UK- 


124 XEQ -PB- 


34 GTO 65 


126 X<Y? 1 


1 


O VM 


34 3 


125 GTO 16 


35 XEQ 18 


127 GTO 6 1 


n 


K *l 1 


35 GTO 12 


126»LBL 88 


36 STO IND 89 


128 XOY ■ 


■ 


I w ■ 


36»LBL 66 


127 XEQ 18 


37 1 


129 -t+tCOR 
138 AVIER 


ECT+r 


37 2 

38 X=Y? 


128 126 


38 ST+ 86 






129 X=Y? 


39 GTO 85 


131 STO 16 




216 RTN 


39 GTO 83 


138 GTO 13 


48»LBL 67 


132 18 




217»L6L 63 


46 XOY 


131 GTO b 


41 ISG 69 


133 * 




218 CLfl 


41 3 


132*LBL 89 


42 GTO 84 


134 STO 35 




219 STO INB 18 


42 X=Y? 


133 RDN 


43 1.885 


135 5 




226 4 


43 GTO 84 


134 47 


44 STO 18 


136 * 




221 STO INI 35 


44 XOY 


135 X*Y? 


45 H,«S 


137 STO 34 




??? RDN 


45 4 


136 GTO b 


46 STO 89 


138 1 El 




223 XEO 16 


46 X=Y' 


137 XFQ 16 


47»LBL 18 


139 » 




224 FC?C 88 


47 GTO 86 


138 17166 


48 RCL IND 69 


148 STO 89 




225 flRCL X 


48 GTO a 


139 X*V> 


49 STO IND 18 


141 RCL IND 89 


226 -Ft,- 


49*L8L 83 


148 GIO b 


58 ISG 83 


142 STO IND 18 


227 flSTO IND 34 


56 FS?C 87 


141 XEfi 15 


51»L6L 99 


143 XEQ 15 




228 RTN 


51 GTO 85 


142 FC?C 85 


52 ISG 18 


144 GTO C 




229»LBL 16 


52 FS?C 88 


143 GTO 14 


53 GTO 18 


145»L8L 88 




236 1 E 


53 GTO 82 


144 " FLflNBEUR 


54 "BANQUET" 


146 1.885 




231 X=Y? 


54 SF 88 


145 AVIEN 


55 flRCL 68 


147 STO 18 




232 GTO 28 


55 TONE 7 


146 BEEP 


56 ma 


148 16.82 




233 XOY 


56 TONE 7 


147 XEQ -PIC 


57 XEQ 88 


149 STO 34 




234 1 El 


57 GTO a 


148 566 


58»LBL 14 


156 11.815 




235 XOY 


58»L8L 82 


149 GTO 12 


59 TONE 7 


151 STO 35 




236 X<=Y? 


59 TONE 7 


158H.6L 18 


68 CF 22 


152»L8L 89 




237 RTN 


68 TONE 7 


151 RCL 81 


61 ■ MISE ?■ 


153 RCL IND 16 


238 SF 88 


61 xeo -an- 


152 RCL 82 


62 PROMPT 


154 XEO 15 




239 GTO IND X 


62 2 


153 RCL 63 


63 FC?C 22 


155 ISG 18 




248»LBL 13 


63 GTO 12 


154 « 


64 RCL 67 


156 STO X 




241 -PR" 


64H.BL 84 


155 * 


65 IHT 


157 ISG 34 




242 RTN 


65 FS?C 88 


156 RCL 84 


66 RCL 88 


158 STO X 




243H.BL 12 


66 GTO 65 


157 RCL 85 


6? X<Y? 


159 ISG 35 




244 -PB- 


67 SF 67 


158 • 


68 GTO 14 


168 GTO 89 




245 RTN 


68 GTO a 


159 * 


69 XOY 


161 RTN 




246«LBL 28 


69»LBL 65 


166 RTN 


78 18 


162»LBL 15 




247 SF 88 


78 TONE 7 


161»LBL 13 


71~X<Y? 


163 ENTERt 




248 -Pfl- 


71 TONE 7 


162 XEQ 15 


72 GTO 14 


164 ENTERt 




249 RTN 


72 TONE 7 


163 FC?C 65 


73 XOY 


165 13 




258»LBL li 


73 xeo -m- 


164 GTO 14 


74 X<=8? 


166 NOD 




251 -PV- 


74 18 


165 TONE 9 


75 GTO 14 


167 X=8? 




252 END 


75 GTO 12 


166 TONE 9 


76 STO 87 


168 SF 85 






76»LBL 86 


167 XEQ -PH- 


77 ST- 88 


169 XOY 






7? BEEP 


168 58 


78 CLf! 


178 LASTX 






78 XEQ -UN- 


169 GTO 12 


79»L8L B 


171 / 






79 46 


I78*LBL 14 


88 XEQ -ou- 


172 INT 






86 GTO 12 


171 TONE 5 


st CF 22 


173 RDN 




13:53 21.89 


8ULBL 87 


172 TONE 4 


82 STOP 


174 FC?C 85 




81»LBL -m- 


82 RCL 81 


173 TONE 3 


83 FC?C 22 


175 GTO IND 


T 


82 CLfl 


83 RCL 82 


174 TONE 2 


84 GTO B 


176 XO L 




83 flRCL 16 


84 RCL 83 


175 TONE 1 


85 PYIEH 


177 I 




84 flRCL 17 


85 * 


176 XEQ -flH" 


86 STO 86 


178 - 




85 flRCL 18 


86 * 


177 4 


87 SF 25 


179 13 




86 flRCL 19 


87 RCL 84 


178 GTO 12 


88 LOG 


186 GTO IND 


Y 


87 flRCL 26 


88 RCL 85 


179«LBL 15 


89 FC?C 25 


18HLBL 86 




88 flVIEN 


89 * 




98 GTO III" 


182 CLA 




89 TONE 6 


98 * 




91 1 


183 STO IND 18 


18 END 


91 ENTERt 
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92 t 


184 1 











PUISSANCE 4 



Ce Jeu de Morpion reagit aux lois de la pesanteur : le but du jeu est d'aligner le pre- 
mier 4 pions horizontalement, verticalement ou en diagonale. 
Chaque pion place sur la grille descend dans la position la plus basse de lacolonne 
demandee. Entrez le programme ligne par ligne et faites "RUN". 
Attention ! Le listing du programme a ete imprime avec une EPSON et certaines 
lignes devront etre introduites en deux fois. 



11:1000 



PUISSANCE 





















X 





Q 










El 


X 


X 










X 


X 


X 


X 








□ 


D 


X 


D 











X 


D 


n 





4 



■$ 



PUISSANCE 























X 


X 















X 


X 










D 


D 














X 


a 


X 


D 











X 


X 


a 



dCYHKI 

SHARPENTIER 







< >=KCX 3 



" "CLEAR :DIM A(6, 7 3, KC 7 3, HC20 ), R( 2 3.GC7 J, AJfO 3*36 
Hf 1 3=.Oi:NC2 1=. 1:N13 )=10:NM 1=1000= Nl 6 J= H H ( II 1=100: Nl i& 
WAIT 0* PRINT "ImPrlmante (QVN) ?" 
A*«JNKE¥* =IF *£*="□■' 3+{AJ- = "M" 3=0THEH 40 
CLS :FL=ASC ft*-7S: GDSUB "to" 

BEEP 1 ,220. 100! PRINT "Uoulez-vau-s- com roe nee r ?" 
IF INKEV* ="0"THEN 100 
IF IHKEY* ="H"THEH 150 
GDTD 70 

OC+1SIF C=43THEH 3"?0 
PRINT " Colonne 7" 
Z*=IHKEY* :IF Z*=""THEH 120 

X=UAl_ 2*:IF <X<1)DR CM>7JBR (Kt X )=6 STHEH 120 

Y=6-KIX J:A(Y,X )=liK(X )=K(X >+l:GDSUB "PJ"!lF G(X)=1THEN 410 
C=C+l:IF C=43THEH 390 

CLS :PRIHT "Je Pense . " ; : B=0:M=0! FDR X=1TD 7:GDSUB "r" 
IF T>=MLET Q=T:P=GIX ):GOSUB "9" 
IF T>=MLET M=T:XM=X 

HEXT X:X=XM:BEEP i:CLS :PRINT "Je Joue en" ; XI : Y=6-K( X ): ftt Y. X >=5sKC 
=1: GDSUB "PD" 
GDSUB "r"SGDTD 100 

'V'PRINT ". "j:G(X J=0:T=0:Y=6-K(X ): IF Y=OLET T— 1 (RETURN 
IF VOLET S=0:FDR J = 1TD 4!S=S+A( J, X 3:NEXT J:GDSUB "f" 
IF Y>2LET S=OJFDR J-3TD 6:S=S+A[ J, X ):HEXT JiGDSUB "f" 
IF (VOIMHB EY063LET S=0:FDR J=2TD 5sS=S+A( J, X 3: HEXT JJGDSUE "f" 
IF X<5FDR B=1TB X:S=0:FDR I=3TD H+3: S=S+A( Y, I J.NEXT I:GDSUB "f":HEXT D 
IF X>4FDR B=X-3TD 4:S=0:FDR I=DT0 L+3s S=S+A( Y, I 3: NEXT I : GOSUB "fJNEXT 
ft=X+YUF fY>4JDR (A>8 3DR (h<5)THEH 290 
U=lsW=4BU«~l!GDSUB "k" 

IF fY=l)DR {Y=6JDR (rt<6 3DR (A>9)THEH 310 
U=2:H=5:U=-i:GDSUB "U" 
IF (Y<3JDR CAM0K1R (ft<7 1THEN 330 
U=3!W=6:U=-l:GDSUB "k" 

H=X-Y:IF fY>4 3DR ( A<0 JDR l fl>3 3THEN 350 
U=1!U=4SU=1: GDSUB "k" 

IF (¥»*1)0R CY=6 3DR (H<-1 )DR (A>2)THEN 370 
U=2:W=5:U=l!GDSUB "k" 
IF tY<3)0R IA02JDR (AMJRETURM 
U=3:W=6!U=l: GDSUB "k": RETURN 
CLS !ft*tei=*E9al Its. "=IF FL=1GLCURS0R 
WAIT :PRIHT R*(Qj:END 

CLS s H *<0)=" Bravo vous 9a9t-iez. " : IF FL=1GLCURS0R ! 0, -35 M LPRIHT flt(O) 
WRIT iPRINT A*(0 3:ENB 

CLS = A*(0 J="Besole Je Joue en "+STR* X+" et Je GAGNE.":IF FL=1GLCURSDR (( 
):LPRIHT r*10) 

WAIT (PRINT MID* ( A*( 3, 1 , 19 ):PRINT MIL* L h*( ), 20, 13 )i EHB 
"k"S-BIFHR J=UTD U: I=A+J*U: S=S+A( J, I ):HEXT JiGDSUS "f":RETURH 
"f "IF S=3LET GtX J=l 

IF ES=15 3AHD (B=0)LET Kt X )=K( X )+l : GDSUB M P0":GDTD 430 
T=T+HfS+l »a RETURN 

"g"Y=6-K(X J:h(Y.X J=5:K(X)=K(X 3+1 :E=1 : GDSUB "r" 
E=0:K(X )=K(X 3-1 : Y=6-K(X JiHt Y. X )=0 
IF G(X1=1LET T=0:G(X )=P:RETURN 
G(X )=PST=Q: RETURN 
"to"IF FL=ORETURN 

GRAPH ICSIZE 4ILPRIHT "PUISSAHCE'-iGLCURSDR ( 165, -100 JiCSIZE 9:LPRINT "4" 
ijLCURSDR (0,-140 )■■ SDRGN :CDLDR OsFDR I=OTD 140STEP 20:LINE t 1 ,0 3-( 1 , 120 J 



POUR VOUS PERHETTRE DE 

NOUS ENVOYER VOS 
PROGRAMMES, LE NUMERO 2 
DHE8006ICIEL HE SERA EN 
VENTE QUE LE 21 OCTOBRE. 



-35 3:LPRINT A*t 



-35 
440 
450 
460 
47"0 

480 

490 

500 

510 

520 

530 

540 

550 

560 FDR I=OTD 120STEP 20(LINE (0,1 

0:GLCURSDR ( 1,-15 1 

570 LPRIHT t ( 1+7 J'10+l )^2:HEXT KGLCURSOR (O, -100 3:RETURH 

580 "PJ"IF FL=ORETURH 

590 LIHE C (X-l )*20+5, (K(Xi-l 1*20+5 )-( X*20-5,K< X 3*20-5 ), , ,] 

600 LINE (CX-1 )*20+7,(K(X)-l 1*20+7 J-(M*20-?,K(x i*5fi-7 3, ,, 1 

ETURN 

610 "PD"IF FL=ORETURH 

620 LINE UX-1 3*20+4, (K(X )-l 1*20+4 )-( X*20-4. K( X J*2n-4 ) 

[rx-l 3*20+4,K(X)*20-4)-(X*20-4,(K(Xl-l 3*20+4 3:GLi 



140, I 3: NEXT 



:r.si7 



HFDR I=3TD 123STEP 



630 LIHE 
N 



OTHELLO 



:S:5! 



< UfS 



28: C.J(8) = tf i23^5t.w^r::i 
::»=2:m=4:o=2:i«=2: 

36: RESTORE 40: FOR ft 
TO 9: SECti 3(0): 



it: DOTS 1. 
8.1.1. 



A 



)=1:3(5.4)=-1 : 
f4.6j=l 



Ce jeu, apparu il y a seulement quelques annees, est rapidement devenu le jeu prefere J 1 

des micro-ordinateurs. II se joue sur un echiquier de 6 x 6 et le but du jeu est de retour- N» ^ 

ner le plus grand nombre de pions de I'adversaire. Pour ce faire, on retourne les pions J4 

ennemis qui se trouvent entre le dernier pion pose et un ou plusieurs pions de la meme f - 

couleur. 

Les pions ainsi captures sont retournes et changent de couleur. 



Configuration de depart 
A B C D E F 



% 



Votre PC 1251 joue par exemple en 4B 



1 


• O 




A B C D E F 


2 
3 
4 
5 
6 


1 
2 

3 
4 

• °J 5 

^Ki 6 


-,o;oo 







60: INPUT 'VOUiEZ-VflUS Tj 

ESliTER ■>•««* 
70: IF CM=*S*1 OR (At' 

001") then 258 
SB: IF foi="N") OR Oil-" 258 

N0^ v ? THEN 110 
98;G0"O 6@ 
110:V=-;:a=8:3=8:C=l:H=- 

l: COS >i TB S: FOR 260 



I88:'v'=G:b=I:3=j 
198:nEKT J: WEST I 
288: IF Y>8 "HFN 238 
2ie:BEER 1: R6USE "JE ?o 

SSE. , ■"■ 'E 2=1 

RfiUSE "0 EST FTN!»: 

50T0 "F" 
228:Z=t: GftTO 250 
2S8SZMSS !=*:.!=«: 0=1! 

GOSUB 'S2":«=K+G+1:0 

=0-g:^=n+| 
248:beer :: print "je jo 

UF:"; using 'Jtl'lAi 

MIDI fCli8).B+6.1'i:* 
?TS:»: USING 'SSS" 

245: IF n*e»-3f,>=8 then " 



0=-1 :h=1:os=" w : 
GOSUB 390:1=0: IF 
*<"!"> OR <*i>"6" 



VTO 



VOL 



"J:OI=Tl: 



BIT. J) 




Si vous repondez en D5 
A B C D E F 



OB ' 
128: GOSUB 'SI' 

THEN -98 
130:U=8: GHSliB 



90 




148:IF <: 



ij=0 OR (.!=« 
T G=G+2 

G<v ThE>. t 98 
CG=V5 OnB < R 
1.5) "-EN 198 



GOTO 780 
270: IF T*0»P» tmfn 250 
2S0: I- 7=1 THEN V FI " 
290:2=1: GOTO •■{■« 
30B:GuSU3 390:J=0: IF fT 

5<"0") OR (Ti)"F v * 

-HEM 380 
3:3:.T= 090 tj-64 
320:!E B(T.J)<>8 ^E T FJ= 

•PR'S... ": GOTO 370 
339:G0SU3 »Sl»: IE f=0 

lft fj = .j.b:jUois": 

GOTO 370 



Le pion D4 est done pris entre le pion noir D3 et le pion noir D5, et est ainsi perdu par 

I'adversaire. II est retourne et devient noir a son tour. 

Vous marquez 1 point, mais attention, vous n'avez pas gagne la partie pour autant. 

Luc BURELLER. 



:U=0: GOSUB "S2": IF 
6<1 LET FS="POS BO!- 
: G0 T 378 

:7=0:u=t: GOSUB "S2" 
0=0+G+t : N=K-G: N=N+1 
IF' (N-36'''*i'1=0 THEN 



PC 125 



:GOTO 118 

:FOR L=a TO 2: BEEP • 

: PAUSE "C EST ":fj: 

NEXT <_: GOTO 250 
:POUSE "VOTRE COUP '■' 

iSi:TJ= INKEVJ : IF 

TS="" THEN T98 
: RETURN 
:"S1"F=0: FOR R=-J TO 

1: FOR S=-i TO H IF 

B(I+R.J+si=H LET F=1 
:NEKT S: NEXT S: 

RETURN 
:"S2"G=0: FOR K=2 TO 

9:B=B(K'i:E=B«-2'):P= 

H-B:9=J+E:V=0 
:IF BiP.OjOh THEN 6S 


:V=V+i:?=P+7j:EI=CJ+E: 

IF B(P.OS=C THEN 668 
!JF J<?.a)=8 THEN 680 
:GOTO 638 
:G=G+V: IE UOl THEN 

688 
:R=I:e=.T: FOR a=8 TO 

V:S(?.0;)=C:P=p+B: J=u 

+E: NSXT , 
:NEXT K: RETURN 
: "FI" IF ''1=0 PRINT "E 

GflLITF...": ENB 
:IF liO- print ».ie 500 

nE OVEC": USING "SI5 

•Kl-OS" PIONS": END 
:PRINT "TU GOGNE (iVEC 

"i USING "ISril-M' 
PIONS": END 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



Pour ZX SPECTRUM, en plus de la gamme de logiciels de jeu deja disponibles c'est-a-dire PANIQUE, MINED 
)UT, SPACE INTRUDERS, ANDROIDE, TANK, JAWZ, FRUIT MACHINE, GOLD MINE, SPAW OF EVIL et ROAD 
OAD arrive d'ici a fin octobre MANAGER, un jeu de simulation dentreprise - un logiciel permettant de recupe- 
sr les programmes BASIC du ZX 80 et du ZX 81 pour le SPECTRUM. PASCAL et ASSEMBLEUR sont egalement 
nnonces. Toujours pour le SPECTRUM, mais vers la fin de I'annee les MICRO DRIVE (cassette sans fin 80 Ko f or- 
nate), I'interface RS232 et I'interface reseau. Pour en finir avec SINCLAIR, une carte 16couleurs est d'ores et 
eja disponible pour le ZX 81 (475 francs). 

Pour MULTITECH MPF-II sont disponibles lassembleur (disquette et cassette, 1 50 et 1 20 francs), un editeur de 
sxte sur cassette (70 francs) et d'ici la fin de I'annee FORTH et LOGO, ainsi que 8 cassettes de jeu et 4 cassettes 
'initiation aux mathematiques. 

Enfin, le catalogue SPID (39, rue Victor-Masse - 75009 PARIS) propose pres de 400 logiciels de jeu avec des- 
riptif succinct et photo d'ecran pour ATARI, HX 20, IBM PC, ORIC1, APPLE II, SHARP PC, SPECTRUM, ZX 81, TR5 
0, VIC 20, COMMODORE 64 et HECTOR LAMBDA. 

Chez DUNOD (30, rue Saint-Sulpice - 75006 PARIS) le BASIC ETENDU TEXAS INSTRUMENTS pour Tl 99/4 A 
st disponible en Franpais pour 70 francs. Chez EYROLLES (61 , Bd Saint-Germain - 75240 PARIS) par P. DAX : "le 
ingageC'et par W.P.SALMAN : "FORTH". Le langage "C" egalement chez MASSON (120, Bd Saint-Germain - 
5006 PARIS) par T. Buffenoir. 



La FNAC edite un dossier 
sur 13 MICRO-ORDINA- 
TEURS: APPLE lie, ATARI 
800, VIC 20, COMMO- 
DORE 64, HECTOR 
LAMBDA, MATTEL AQUA- 
RIUS (SIC), NEW BRAIN, 
ORIC 1, SANYO PHC 25, 
SPECTRUM, TEXAS Tl 99 
4/A, THOMSON T 07 et 
LASER 200. Les ordina- 
teurs ont ete juges sur 
quatre parametres : jouer, 
maitriser, creer et exploi- 
ter, et la FNAC a attribue 
ses fameuses etoiles 
d'appreciation. Allezcher- 
cher ce dossier GRATUIT 
dans les FNAC et comp- 
tez les etoiles ! 




Suite de la page 1 

ixact-.aumoinsau debut. En effet.jepeux, en BASIC, ecrireun petit 
irogramme : 

NEW 

10 PRINT "CONJUGA1SON DU VERBE LAVER AU PRESENT 
DEL'INDICATIF" 

20 PRINT " " 

30 PRINT "JE LAVE" 

40 PRINT "TU LAVES" 

50 PRINT "IL LAVE" 

60 PRINT "NOUS LAVONS" 

70 PRINT "VOUS LAVEZ" 

80 PRINT "ILS LAVENT" 

90 END 
it alors, en tapant RUN, vous obtenez I'affichage. 
in LOGO, vous allez commencer par donner un nom a votre pro- 
gramme (on dit plutot procedure). 

POUR LAVER 

AFFICHE [CONJUGAISON DU VERBE LAVER AU PRESENT 
DE LINDICATIF] 

AFFICHE [ ] 

AFFICHE [JE LAVE] 
AFFICHE [TU LAVES] 
AFFICHE [IL LAVE] 
AFFICHE [NOUS LAVONS] 
AFFICHE [VOUS LAVEZ] 
AFFICHE [ILS LAVENT] 
FIN 



Ca se ressemble evidemment beaucoup; en LOGO, on parle fran- 
pais (bienentendu, My a des LOGO en anglais, en allemand, en espa- 
gnol..,), ce qui est plutot agreable pour les jeunes enfants... et pour 
les adultesallergiques a la langue de Shakespeare. On ne numerate 
pas les lignes : il faut bien reconnaitre qu'on ne voit pas, au niveau ou 
nous en sommes, a quoi ca sert de mettre des numeros systemati- 
quement au debut des lignes. Pour faire executer, on ne tape pas 
RUN (niCOURS.ni EXECUTE...), mais on indique le nom de la proce- 
dure que Ton veut faire executer. Ici, on tapera done 

LAVER 
Maintenant, supposons qu'au lieu de laver, je veuille repasser. Bien 
sur, on peut recommencer la meme chose avec REPASSER. Ici, 
LOGO commence deja a devenir plus interessant. Parce que, 
comme la nouvelle procedure pessede un nom different, elle peut 
tres bien coexister avec la precedente : pas de NEW qui detruit ce 
qu'on vient de faire... On enrichit le vocabulaire de la machine au fur 
et a mesure de ses besoins personnels. 

Mais on peut aussi penser qu'il y a des choses similaires dans les 
conjugaisons de LAVER et REPASSER, et apprendre a I'ordinateur a 
se debrouiller avec cela. En fait, on a surtout besoin de mettre dans 
une bolte (de considerer une variable, pour ceux qui aiment une 
terminologie plus technique) le radical du verbe a conjuguer. Et la 
procedure devient alors : 

POUR CONGUGUE.AU. PRESENT :RADICALDU.VERBE 
AFFICHE PHRASE "JE MOT :RADICAL.DU.VERBE "E 
AFFICHE PHRASE "TU MOT :RAD1CAL.DU.VERBE "ES 
AFFICHE PHRASE "IL MOT :RADICAL.DU.VERBE "E 
AFFICHE PHRASE "NOUS MOT :RADICALDU.VERBE "ONS 
AFFICHE PHRASE "VOUS MOT ;RADICAL.DUVERBE "EZ 



AFFICHE PHRASE "ILS MOT :RADICAL.DUVERBE ENT 
FIN 
Quelques remarques ; 

- le nom de la procedure doit etre un mot (cest pour cela qu on a uti- 
lise des points pour relier les composants de ce mot. tout en gardant 
une bonne lisibilite), mais il peut etre aussi long que Ion veut. done 
aussi explicite que Ton desire ; 

- le nom de la variable doit aussi etre un mot. Le caractere : indique 
que Ton va prendre la valeur de la variable (ce qu'il y a dans la boite) 
et non le nom de la variable O'etiquette de la boite) : 

- quandon veut que I'ordinateurconsidereun mot comme une suite 
de caracteres et non un ordre a executer. on fait preceder cette 
chaine du caractere guillemet. Le premier espace blanc indique la 
fin de la chaine de caracteres, et e'est pourquoi on ne "ferme pas les 
guillemets". On a deja vu que, si Ton veut eenre une suite de mots 

- done avoir des espaces entre des chalnes de caracteres -. il suffit 
de les enfermer entre crochets ; 

- si Ton a besoin de fabriquer un mot a partir de deux morceaux. le 
primitif (le terme deja connu de la machine) est tout simplement 
MOT. 

Ce qui devient interessant, e'est la reaction de I'eleve qui fait fonc- 
tionner son programme (car e'est I'eleve qui aura redige ce pro- 
gramme, et non I'enseignant) sur des exemples comme AIMER. 
NAGER ("pa, je vais pouvoir expliquer a la machine"). ALLER ( "la. il 
faudra faire une procedure comme la premiere procedure LAVER). 
... et sa perplexite devant les limites d'un ordinateur : 
"mais alors, si je lui mets CAHIER, elle va conjuguer : JE CAHIE. TU 
CAHIES... et ca, je ne pourrai jamais lui expliquer qu'il ne faut pas le 
faire!" „ . 
Suite page 77 
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FOOTBALL 



Le but du jeu est de gerer une equipe de foot tout au long d'un championnat. Pour 
chaque match, votre equipe peutjouersurson propre terrain ou partiren deplace- 
ment dans une autre ville. En tant qu'entrameur, il vous faudra fixer le prix des pla- 
ces, mais si celui-ci est trop eleve, il y aura peu de spectateurs et votre equipe, avec 
peu de supporters, aura plus de chance de perdre. En revanche, si le prix des pla- 
ces est trop faible, la recette le sera aussi, la situation financiere en patira et le 
moral des joueurs sera au plus bas. Un vrai casse-tete ! 

Lorsque le club se deplacera, la situation n'est pas plus simple, loin de la ! II faut 
payer les joueurs alors que les recettes sont nulles, il faut avoir prevu ce finance- 
ment necessaire a la vie du club. 
D'autres parametres sont pris en compte par ce programme : 

• le nombre de spectateurs est fonction de votre place au classement et de celle 
de votre visiteur; 

• a chaque match, vous pouvez donner une prime aux joueurs pour les stimuler; 

• si vous estimez ne pas pouvoir gagner un match, vous pouvez envoyer une 
equipe moins forte, elle vous coutera moins cher; 

• attention au nombre de buts encaisses car, en cas d'egalite, la difference de buts 
vous departagera; 

• une equipe qui recoit des joueurs visiteurs est systematiquement avantagee ; 

• une equipe en tete de classement a un moral atoute epreuve et est extremement 
difficile a battre. 

Pour bien terminer la saison, vous devez finir aussi bien classe que vous avez 
commence et avoir en caisse le plus d'argent possible. 

Francois ARDIET. 



r> 


'trl CLC l 


■Hi 


DIM CK 


41, 


uth CKC 


42 


dim ox 


43 


DIM R'L 1 


44 


Din PlC 


4^ 


DIM PMt 


4ft 


OiH VEi 


4/ 


\>m oe'. 


419 


OJM BP'. 


49 


UlN WX 


se 


DIM R*< 


9) 


DIM NP< 


32 


DIM Of, 


33 


DIM EX 1 


MS 


dim r«< 


61 


tttt i ,»-" 


«8J"'J i. 


6*- 


R«S»" 



-fftS 



80 



A6* 



6,2) 

2.' 

6,2)'DIM T£6*E> 

** J.VON ^'MR^K?)-" PARIS SG "'A»<.3>-" NANTES "'fl«4)-" LILL6 "'A 

ENS ":ft«K6>" eiJRDERUX "'A»<?)-" MONACO " ' PJK B )■" STRASBOURG" 

dfthitiafe n <mUtW 8QCHRUX "<H«ll)»" NSNCY m i«KU>»"»T ETIfeNNfe 

99 ' *******##****#*#*******#***#**********#*********** 

100 Q-S 

110 PRINTIS469, "** FULMBRLl **" 

113 PRINTS392, "** PHR FRANCOIS HRDIET **" 

ll-- PWINI 'PRINPPRINPPRINT 

lie P«INI"ftPPUT'ER SUR LR fc-RRRE D'EBPACE POUR PRSSfcR D'UNE PHRSE R L'RUTRE" 

120 GQSU8 3000b 

125 ' ************************************************* 

129 CLS'P«IM?"<P!MW'P8IHr 

130 PRiNT"CE JEU VOUS PERMET TRH DE GERER UNE EQUIPE DE FOOTBALL" 'PRINT" DPNS 
LE CHHMPtGNHT DE FRANCE DE PREMIERE DIVISION." 

132 PRINT' PRIrm PRINT 'PRINT 

133 PRINT"VOTRE EQUIPE EST CELLE DE LYON ET SR REUSSITE" 

140 PRINf "DtPENDRA DE VOTRE HRBILI7E R LR GERER ET R L'ENTRRINER " 

14b GOSU0 30000 'CLS 

130 ■ ***************************** < ********************* 

90= H-e 

910 FOR 1-1 TU it 

9 1 3 BP< I >-0 i BCt I >«0 i DB< l >-fl > NP< I )-0 

920 NEXT i 

S93 CA«2500000-KRNOU000>*1000) 

996 Cft-Cft.' 1000008' U2-CR 

998 CLS 

1000 PRInT'LE CLUS DISPOSE DE";CftJ"MF POUR ENTRMER LR SRISON. " 

1010 FOR .1-1 TO 64'PRINT"*".: 'NEXT I 'PRINT 

1300 V£< l )»28+rtNDt 9 i 

J 303 FUR 1-2 TO 12 

1310 V£U ;-25+RND<13) 

1315 NEXT I 

1320 FOR 1*1 TU 12 

1323 PRINTS*: I J^VP-i: I / 

1330 NtXT I 

1340 UO&UB 50000 

1350 CLS 

1500 PRINT" PHRSE O'ACHAi DES JOUEURS." 

1303 FUR 1-1 TO 64'PRiNT"*"i 'NEXTi 'PRINT 

1310 PRIHPVOTSE CLUB R UNE VRLEIJR INiTIRLE DE "i VEtl>l"PTS." 

1515 PRXNT a VOUS RVE2 LP. PDSSIBILITE D'ACHETER DE 1 R 10 PTS" 

1520 PR1NT"DE JOUEURS SUPLEMENTRIRE5. " 

1330 PRlNl"It. VfJUS EN COUTERA ENTRE 0.25 ET 3 MILLION DE FRCS" 

1340 PRINT"SELON lA QUAlITE DES JOUEURS ACHETES. " 

1600 1NPUTJ 

1610 PRINT "NOOvELLE VflLEUR DE L' EQUIPS <" j VEC 1 )+J 

16^0 PRINT 

1630 PRINT'Lfc SRLfliRE MAXIMUM POUR CHAQUE JOURNEE EST DE" J ( VE< 1 )+J )«B. 03j "MF ■' 

1700 IF J<-4 iHEN CJ-.23*J'GUT0 1730 

1710 IF J>P THEN CJ*3+J-e = GDI'0 1730 

1720 CJ-l+(.5*c J-4)) 

i?30 CR-CR-CJ 

t/38 GOSOB 50000 

1 73/ CLS 

1739 ' A*;*********************************:*************** 

1748 PR1NT"HPRP.S -'OS ACHATS DE JOUEURS, IL VUUS RESTE" > CPU "MF. " 

1742 FOR lm TU 64'PWIN' "*"; 'NEXT I'PRINT 

1800 NP«1^000-(-RNDC6000> 

1610 PRINT"VOt'RE STRDE ft UNE CRPALITE DE "j NP l" PLACES." 

1S2W pWINI"VijUfc POUVEZ L'AL-RANDIRJ IL VOUS EN COUTERA IMF POUR 1000 PLACES SUPPL 

EPJENTAIRES. " 

1630 PRiNT'PRiNT'PRiNT 

1850 INPUT 1 INVESTISSEMENT DESIRE t EN MF)"iK 

j 633 Nk-NP+1000#K 

1937 NP-INKNFV10>*10 

I960 CLS 

1^02 CH-CH-K 

1*05 ■'*******#**********# FIN INITIALISATION ************* 

2800 ''#********* CALCUL PTS EQUIPES ******«***#*****#* 

2015 PRINT 

20^'3 " 



"CrtlbSE' "it 
"NtiRE Dfc PIS' 
"STADE' "jN* 
"SRLfllRE' ". 






" > '/E< 1 > 
VEs 1 j*0.03 



NEXT 



ATTENTION ! 


POUR VOUS PERHETTRE DE 


NOUS ENVOYER VOS 


PROGRAMMES, LE NUMERO 2 


D'HEBDOGICIEL NE SERA EN 


VENTE QUE LE 21 OCTOBRE. 


A VOS CLAVIERS ! 



2027 VEt 1 >-VE..- 1 >+J 

2028 VM.>=VK\ » i 
f'030 PRIN1 

2032 FRiNTR*',2;,Vfc.<2,> 

2033 PRINIR*-' 3 j,VE^3>. 

2034 PRINiR*<. 4),VE',4>. 
2033 PR j. NT H%<-. 5 ) , VE< 3 ) 

aaae HRiNTR*t6;,veC6; 

2837 PRINTR*<7 JA'til?) 
283W PR .[ n fp*< 8 :■• , VM 8 > , R*< 1 

3039 PR.'.NTH»<y> J vE<y> 
2010 pRiNTft*< 10), VEt 18 i 
i^04l PRIN('fl*(. 1W,VE< 11 ) 
284^ PR:i:NTH»0.£).-vE':. 12) 
2050 FOR 1-5 TO 12 i U I 
,^0^0 0-Ori'j 23135 
^'900 FOR I-] TU 12 
29 18 Ciil J-CL<I ) 
2920 WhXT I 
2930 CL« 
:.-000 H-H+l 
3005 (F h*£;j THEN 61.300 

3810 * «x***«#«*#*«*«* TIRftCfc. DES EQUIPES ************* 

3011 FOR D-l TO 6 

3012 READ ft.-B 

3013 2ZCD,1)-R i ^Z(D,2>-B 

3014 NEXT D 

303 3 UOTU i^430U 

30K0 f-OP I»i TU 6 

3030 R-^Z^i,!) ' B-Z2U..2) 

3040 i*(;i,l )»RKR>tT«tI,2>"fl*<«) 
3050 IF P-l THEN 4000 

3060 It- ©*1 WEN 41.00 

3070 ■'***■ **:*:*:*****: CHlC'Ll i-M CLfliiS I Q JE *************** 

30SM Pnt R >-Vtt R )+PL( H )+3.5+RNDt 25 ) 

3090 PfV, B >*Vt< B )+PlC B )+RHD< 23 ) 

3100 SOTO 20000 

409*3 '■************** CRLCUL DfcS PTS EQUIPE 1 *************** 

408i-; W*i 

4010 PRJ.NTK766..H- "h JUURNEE- VUUS RECEVEZ L'EUUIPE DE " j fltt B ) ' GOTO 43008 

41.80 PRIN"ia7isa.,H.! "E JQURNEti. VOUS VOUS DEPLACEZ A " J Aft A ) 

4110 PMt R )-VE< H )+ 1 5+PLC H >+RND(. 23 .> 

42W0 ■**'******»;******* PRIME RUX JOUEURS ******************** 

4203 FW B )-Vfci. B )+PL ', B >+BN£>( 25 ) 

4i:'07 MP.J-0 

4210 UUTO 4610 

4235 M- J NTf NSP*NSP/ 1 3000000 ) 

4240 IF fl-1 I HEN PMC 1 )-Vb< 1 >+ M+RNDt 19 >+PLt 1 )+< MPJ*20 ) ELSE PMt 1 )-VE< 1 )+RNDt 19 )+ 

PU 1 ) +( : MPJ*20 ■' 

4250 GOTO 20088 

4^00 ■' *********«*****X*** MUNTANT DE LA PRIME *************** 

4610 iNPIJT"NUNiANI Dfe LR PRIME < fcNTRE 8 ET 2 MF)"jf1PJ 

4^12 IF MPJ<0 OR MKJ>2 THEN 4610 

-4613 J ************** VHLEUR DE L' EQUIPE ********* 

4614 VEt 1 i-VriJ 

46.1.3 INPUT -'VRlEUR DES JOUEURS " J V J 

461fc IF VJ>VEU ) OR VJ<11 THEN 4613 

4617 VEt 1 )-VJ 

4628 CR-CR-MPJ 

4638 GOTO 4233 

3000 ' ************** PESULTHT DES MATCH ******** 

100W1 DRTH 8,i,' , ,2-4,3,10,5,6 J l2ill J 9 

10002 Dft"iR l.,6,2 J 3,49,3,7.9 J l0,12,ll 

10003 DRTR 3,1,8.2,3,12,10.4,7.9,6,11 

10004 DRTR 1,7, 3, 3,4, 2, 3,6, U, 3, 12, 10 
:i8003 DRIR ;-:,63, l2,7.4..a.3, 1,9> 11, 10 
iai*at DftTS 9.2.3,l,4>l£.fi>B./>10'11.3 
18007 DRTR 1,2,5,4,8,7.10,6.11,3,12.9 
10088 DRiR 2.10,4,1,6,3,7,11,8,12,9,5 
10003 DRTR 1,10,3,7,3,6,9,6,11,4,12,2 

10010 DRTR 2,5,3,9,6,4,7,12,10,8,11,1 

10011 DRTR 1,12,2,11,3 10.?, 4,5,9,7,6 

10012 DRTR 3. 11, 12, 6, 3, 10, 3'4. 2. 7,1. 8 

10013 Dfl'lfl 11,12,10, 9, 7, 3, 8,4.3,2, 6,1 
16014 DRTR 11,6,9,7.4,10,12,3,2,9,1,3 

10015 DRTR 10, 12,8, 11.-6,9,2,4,5,3,7, 1 

10016 DR"iA 10,1,1,3,1,3,9,4.7,12,3,6,2 
1001V DRTR 5,11,10,7,8,6,12,4,1,3,2,9 
l00iy DRTR 9, 12, 3, 11, 10, 6, 7> 8,4, 5, 2,1 
18019 DRiR 5,9-12,8,11,7,3,6,1,4,10,2 

10020 DRTR 2,12,4,11,8,3,6,5,7,3,10,1 

10021 DRTH l,U, 9, 10,12,7,4,6,9,3,3,2 

10022 DRIR 6,7,8,3,4,9,10,3,11,2,12,1 
20008 '********** RESUlTRT DES MATCH ******) 
20W0I R1-RND<0.5) 

20002 IF RK-0.4 THEN R-9 

20003 IF R)>0.4 AND RK-0.7 THEN ft-1 
28804 IF Rl>0.7 RND RK-0.9 THEN R-2 
20^05 IF RJ>0.9 THEN R-3 
20010 IF PMt A )-PH< B »*S THEN 20100 
20020 IP PM(B)-PM(R)>S THEN 20200 

20030 *********** MATCH NUL ************* 
20W35 ' 

2003 1 BP< R )«tP'. R )+R ' Bi-', R )-BC< R )+R 
2w03t= bPC B .>'k>^i & )+P ■■ BUX B )-BCt B ;+R 
2004M T( I,1>-R'TC I,2>P. 
28043 NP>:. R ;=NP':. R .:■+ 1 ' NP', 9 )=NPt 9 )+l 
28(150 GO ft) 22000 
28100 ' 

20110 T<. I,l>R+INTf 
20120 T< X,2)-R 
20138 NPCH)-MP<H>+2 
20140 LOTU 203W0 
28208 

28218 T< 1, 1 >"R 
20220 IX i,2.:"R+iNV; 
20230 Np;B;=NPtbJ+2 
2H240 GOTO 2«380 
20308 BP< R >"fl.P< R )+Tt i j 1 } 
20310 68°'- BJ-BKfi>+T< '.,2 I 
28328 BC'. R ?-8C« R >*T< ■ , 2 ; 
20330 8Ct B )-BC< B HK 1,1) 
20330 GUiO 22008 

21008 ' *******************:*:* C0r«3Efi' 
21100 COSue n8BH0'LLS 
2UW3 PRINfTK 1 ■ 1 )' "-■' iTSfC 1,2)' " "1 
11 TK2,l;' "-jT';2,2> 
211.10 PklNi T*^3,l J3 -"'T*^,,- 



'.. PM< R J-PMt B) VB» 




■*<:'■. Pf'i':. 



PMC A ) )2S ) ) 



: fti ION DES RESL'l.TRTS ***** 



i }'• 



■TC4 



TC3 



i r<3,2) 
jK3,2) 



211.^8 PRinT .«3, 1 >s "--'j i*', 3,2,'i " "j 'C5. 1 ; 

" "' Kis,i. j,i "-".• r<fc»2) 

2U32 iF i>j-l THpN 21135 hLBe 21140 

21133 PRiNTNSP'" HPECTfiiEUKS ~ R6CETTE " ■ REC j" 

2113;' Im-0'GOiO 23008 

21140 PRlNT'Gunj 23t'00 

2288W '****«X***** PIN Dfc. LP BUJCLt D'' UHt ./GURNEfc ******* 

22100 NEXi I 

22200 L-UTU 2100B 

■fl.ittm ■ *************** ChlCJl ULR.-sSEflEN'i ***************** 

23100 Xa). 

23110 FOP K-l T'j 12 

23120 C(. K >=wP<k. ) 



Suite page t 



Suite de la page 5 



THEN *342tf ELSE 2314W 

TU J2' DeK P ,'**P< P >-yCX P > ■ NEXT 



.' "PTS" 




PREPARE?. VOS PROGRAMMES 

ET ENVOYEZ LES NOUS LE PLUS 

RAPIDEMENT POSS I BLE , VOUS AVEZ TO 

JUSTE LE TEMPS : LE NUMERO 2 

PARAIT LE 21 OCTOBRE. 



MAX JOUEURS 



^yii'5 i_\K)»i0fl*<: 1.+C: K) >+BP( K J-BIXK J 

aaiaa next k 

K»lS3 x«l 

2ai *a .20-0 

«3l+K FOR l-1 TU 12 

iJi^D if ul»aj then Z9HKt) 

S3tSP NfcXT l 

£3168 FOK M*J Ffi IS 

ayi^tS j>' U<H>-2CJ THEN £3190 ELSE £3; 

£3i ye £iupu«x 

23e«8 EXMJ*-! 
£3#l8 Ngxf n 
i-"3228; ."t-H+Y 

23238 v'-a 

23240 IF Ztfi 

834M8 FUR p. 

i-:.-j48,-' xi-w 

£-:34ie ijQTu gaSfew 

23S88 £F H»H THEN 29tf8 
233SJS FUR P-l TO 6 

aststd i*niNTCUKP>>f" : e 

23328 NEXT P 

23:538 GOTO 24HB9 

2aSB« 

23*18 FOR U*3 TU 12 

id^eaa uu 1 1 >=cn. u ; 

^3«38 NEXT fl 

23635 MIN-13 

23648 FOR I J.-l TO 12 

23643 jlF UCC i 1 XMIN THEN MIN«CfJ<IO 

23&*7 NEXT U 

aa*>58 FiiR 1 2-1 to is 

23655 IF CC* I2WUfi "iHEn G'JTQ 23*>7Sl 

23669 NEXi I*i 

«3S?( IX< i2>-13 

23675 fel-M+l 

;-:36w0 *CX1 >-I2 

gS*&0 IF Xi>-l2 THEN 23580 

23*33 CUrO 23635 

2369/ '************* FIN CLR35EMENT *********** 

24006 PRINT 

24002 CA=rjfl-<0.y3Xv£<:i >> 

240B3 CR-.iHT(. 18«*CH V108 

24005 iF ftNDU3>-7 THEN 60000 

24088 PRINT "EN CHISSE < " :■ Cfl; "MF" J '■ JOURNEE NUMERO 

^4010 GOTO 330^0 

24300 ' x********** FUTURE JOURNEE ************** 

24510 LUSUy 58000 

245l5 PRINTG0, " 

24523 PRINT8W,fl»<Zii;i,0,>j 

24338 PR i NTU64 , R*< Z2< 3 , 1 > J . 

22(4,:. jj : W<ZZ<4.a». 

2*540 PRINfBi28-/fl»<2Z<3» I > 

(L22C6,DJ.i - f(*<2Z<6,23 

24545 SOTO 3020 

24bb8 ■■ ************ UN EDlTIUN .JOURNEE 

30000 '************* PTS DE MURRL ************* 

30010 FOR J-l 70 li 

30012 IF CUJJ-1 'HEN Pi_(JJ-9 

30014 IF U.<J>-2 THEN PU- J>? 

30016 IF CUJJ-3 OR CUJ>I2 THEN PL< J )-5 

30819 IF CUJ>4 OR ULCJ>-U THEN PUJ3-3 

3MKI IP f:U0"9 OK DC jwlD THEN CL(J)-2 

300=12 IP CL'. J -'-6 Oft CLUj-9 i HEN PL<J;-1 

30024 IF UL'JiJW US UL<J>-8 THEN PH. J>-0 

30030 NEXT J 

30031 FUR J-l FO 12<f*U J>=PL: JH+RNTX 13 J'NEXT J 
3883& 0- 1 +RND'. 1 1 > > PL< U >-PL< )+RND<. 3 > 

30033 IF OR-CVt* 1 >*0.03K9 THEN PLC 1 >=PU 1 >+U CR~< VfcU J*0. 03 ) )*RNO( 5>> 

30034 IF H-U THEN 40000 

30035 ■' ************************************X#*** 

mm$ ooro 3000 

30.135 00 10 21000 

4a«00 G0SU8 50B00^PRINr"FIN OES MFTCHS RLLER. " 

40003 OUiO 3000 

40HL0 IF H-22 THEN CUSUts 50000 

45000 ■ **X*x**x*****x CHLCUL OE '_R RECETTE *************** 

45002 INPlj< "PRIX DE LR PLHCE CENTRE 50 ET 380; ,; ; PPL 

45003 IF PPL>300 OR PPU50 THEN 45002 
*5005 N3P-2*< 12-CH 1 > X RND< 3 >*< VflJ-VJ ; ) 
45006 NSP=NSP+< 8**: 1 2-CL< S ) ) )+RNO< 35 > 
4500"/ NWP-NSP+C RNOi 85 >*< 150/PPL ) > 

45008 NSP-NSPxNPXNP/'': 20800*200^ GOTO "*58l 1 
4500'^ NSP-iNTi.NSP^]9>*18-'IF NSP>-NP THEN N6P-NP 

45010 RtO-NSP*PPL/-1000000'GO1O 45015 

45011 IF PRO**** ThtN NSP-NSP-RND< 100 -(, 30*'. 200-PPL j ) > 
43032 IF PPL<-100 THEN NSP-NSP+RNDt 100 +< 20*< 108-PPL ) > ) 
45013 IF NSP<580 THEN NSP-500 

45814 GOTO 45089 

A3015 P.EO=IHr<(REC+0.005)*100^ie8 

45friifr CR=CP+REC 

4501 , . ? biOTO 4200 

45020 **X#***#x***********X##X**********#***x* 

50090 B*»INK£V*tlF H*<>" -'THEN GOTO 5^090 

30010 RETURN 

60000 '************ PRIME HRZPRO *************** 

.^3005 Cfl=Cfl+-3 

60010 PRINT' : FN LRI-^SE . .."iCHi' ( HVtC PRIMEJ";" JOURNEE NUMERO "iH 

60820 GOTO 24010 

S).m<H .S(;O*J0+Oft-L2+iJl( I )-UL( I )+■: . 0. 1*NP< 1 J> 

61020 PRINrvuTRE SUOKE EST DE ■ " ; SCO 

61040 PRINT'VOTRE ULRSSEMENT INITIAL ETRIT " J OKI )> " IEME" 

6I05W PRINT" VOUS TERMINER "jCLa^"IEMt" 

61*68 i.i03U8 50800 



TRS80 



COCKTAIL 



1586 PAS DEFM1 

Creation aleatoire de cocktails. Toutes les options se 

font par KEY, soit : 

- IMPRIMANTE 0/N : pour impression du 
cocktnil - 

- FRUITE 0/N ; DOUX 0/N : pour le choix des 
alcools et des sirops. 

A NOTER : des codes sont lies a chaque alcool de 
facon a preserver un minimum d'harmonie dans les 
assemblages surprenants d'un programme qu'il faut 
imperativement manier avec precautions... 
(Programme de G. PROBST et O. GUEROUT.) 



R*<Z4<1 ,2)jj 
jVE<ZZ<2,l>Ji"- 

fl*<Z2<3..2>J 
"jV'E(ZZ<4.1>)j"' 



h jVE<ZZ<1,1»j"-" 
jVE<ZZ<2 j 2>J 
" "jVECZZ<3*1??1"- 
";VE1ZZC4,2)> 

"iVE<Z2C5 J l)>J u 
VE<ZZ<6,2>) 



VE<ZZ<l J 2)>,fli£Z 
;VECZZC3,2>>,R*< 



;VEtZZ<5 J 2>; J R* 
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5 PPT :ri=IHT (lifttl 

1*2 J+2 

j..,:';. in 
7M:IF KEV* s O*; 

R=UIF KH**IT 

-m ' 

i ?ST *PRT ' E "^ ' F E 

S 3=iS*T EST iKHS 
♦168 



FX 702 P 




IHPRIMRNTE 0/N? 



COCKTAIL FRUETE Ml? 

u 

CQCRTfilL OOUX s/l? 



PIPPERMIHT I Mi? 

SfiiJIiS; 3L 3 00I6TS 

- - : ." : .t£TS 

PER,?IER... a VOLOHTE 

I VOIRE SHOE... 
OESISEZ-VOUS SEVCiR? 



ISPHBSHIE 0/H? 

ji 

COCKTAIL FRUITE 0/H? 

n 

COCKTfilL BOOS MR 



mm blhnc i doi6t 

MflRTIHI BL I D0I6TS 

LI CASSIS. 1 FILET 

emmm 9 volonte 

SV0TRES9NTE... 
KSIPEC-VOyS REVOIR? 



IMPRIMHNTE I* 



COCKTfilL FRUITE 0.41? 

II 

COCKTAIL DOUX 0,'H? 





C06MC... 2 TRAITS 
8MSOT BL 3 DOISTS 
RHLW MM. Z TRAITS 
SODA A VOLONTE 

A VOIRE SflHTE... 

:e:."-i: -.: ;: : 



30 IF fi=;;IF NIMl 

,i)s"F" THEN 20 

48 FOR E=l TO liFO 

P 1=1 TO 7: IF » 

II. 'HI.!. 1 Ill i. 

i IHEN 10 

3a str 1 j:SEi! E 

58 I=M!ASa)=SlD 

<2B, 1>:D=IHT (R 

HM*3itl 

5? 6SB 78: SOTO V, 

78 FRT " MllDH.i 

8!;;IF 1(16119,1 

i="3";FRT " A V 

ULOHTE";:60TOS 

S8 IF SID(10,1)="2 

";Ft="D0I6T" 
58 IF HIM19.1)="1 

•n IF NID(19,i)="0 

";F*="FILET" 

95 PUTS;* *;«!:! 

F D;i:FF;T "i r ; 

% B<H«*«/»: 

REr 
S7 IF 1*1 THEN 2 

■88 
98 SOTO "18 
101 t-FRHUS 6LAHC, 

22":A=b:C 

=!3:SET 

182 S="FVODffi 

,2r ? :8 : S:0 

-13: RET 

104 t^FkHISn 

24":E=S:C 

=I3:RET 



112 $="FSOINHEFL.: 

R 1E":RET 

113 *="FLI cassis.a 

iffiFflPllB":RFT 
I! I 1 "III BHHHNl.f 

«....8E*:SET 
115 }=°FI«)ARINE.8 

SDR...8F":REI 
lit S="FL! FRAISE.6 

9FDKLHBS":RET 

117 J="FFRAfflOISE.O 
9DkLNPbH-';k£T 

118 $="FSD HARNIER. 
ROr'iRE- 

113 «="ACURRHCAO OS 

9 U":RET 

^=" HFRMPLEHOUSe 
H 3r:RET 



128 



121 t="HJU3 CITROfi 

SS5...eL":«ET 
122*="FPERRIER...5 

53A";RET 

III |-"ABIT LEIitlOilli 

0K'j...3m":RE! 
124 $="FSODA 5 

530":EET 

:2S *="KSCHHEPPES 6 

H5....3P":RET 

126 t="FJUS 08ANSE0 
DE5...36":REI 

127 »="FCHA»PASHE 
«P5...35":RET 

128 $="FSIR. CASNE6 
DEFIS.3fi":RET 



288 



:T " ","9 VOTR 
E 5HKTE...":S0Ii 

e r-m "Ksm. 

2-VOUS REVOIR"" 

I : GGTC 1 

5 NAIT 58 

% FOR 1=1 TO Mi 
E=IST A(i+4):t= 
{8C**4HWUM(i 
S8 64188: Sib TO 

:e NE'T iiSuia 222 



FRANCE 



Ce programme va jusqu'au bout des possibilities de votre T 07 
(version debase sans extension memoire). Augraphismehorsdu 
commun de la carte de France s'ajoute un jeu educatif qui pas- 
sionnera les enfants et etonnera les parents sur leurs connais- 
sances en geographie. 

Vous avez droit a 3 essais avec un nombre de points qui decroTt au 
fur et a mesure des indications donnees par la machine. 
Si vous trouvez la solution, vous aurez meme droit a la Marseil- 
laise ! 
(jusqu'a4 joueurs) 



THOMSON 



l,6:PRINT:INPUT"N0MBRES DE JOUEURS. 4 MAXIMUM " ;N J : I FN 
1:F0R1-1T0NJ:PRINT"N0M DU JOUEUR ";l ; :INPUTN$: J$( I )= 



200 CLS:CLEAR:N2=0:SCREEN7,. 

J<10RNJ>4THEN200ELSELOCATEO,{ 

NJ:PRINT:NEXTI 

210 CLS:SCREEH0,3,l:L0CATE0,5:PRINT"Pour 1e tirage au sort des villes a devi 

ner, j'ai besoin d'un nombre de 2 chiffres.":L0CATEO,10,0:F0R 1=1 TO NJ:PRINT" 

Donnez moi un nombre ";J$(I);:INPUTN1:N2=N2+N1:PRINT:NEXTI 

220 LOCATEO,0,0:BQXF{0,0)-(13,23)" ",,4:B0XF(14,0)-(26,23)" ",,7 :B0XF(27,0)-(39, 

23}" ",,1:BOX{0,0)-(318,191),0 

300 READ X,Y,Z:IFX=OTHEHGOT0400ELSEBOXF(Y,X)-(Z,X),0:GOTO 300 

400 CONSOLE24,24:SCREENO,7,6:FORI=1T010:FORJMTONJ:AJ$=0${J):SCORE=PT(J}:GOSUB10 

00:PT(J)=SC0RE:NEXTJ:NEXTI 

500 COHSOLE0,24:CLS:SCREEN0,l,2:PRlNT"SCORE FINAL" :PRINT" ":L0CATE0,5,0 

:F0RI=1TGNJ.PRINTJ$(I),PT(I):PRINT:NEXT:INPUT"UN AUTRE JEU M ;XX$: IFLEFT$(XX$,1)= 

"0"THEN200ELSECLS:PRINT"AU REV0IR ":END 

1000 N2=INT(N2/NJ):HZ=INT(RND*90)+1:RESTORE20000 

1010 IFN2<00RN2>98THENN2=INT(RND*90) 

1015 IF N2>HZ THEN 0A=N2:N2=HZ:HZ=QA 

1020 F0RZ=N2 TOHZ-l:READV$,C,L:NEXTZ:B0XF{C,L)-(C,L+8),--2:BOXF(C,L)-(C,L+8),] 

2000 L0CATE28,5:AJ$=AJt+" ":PRINTLEFTI(AJ$,9) :L0CATE28,10:PR1NT"T0UR : 

: L0CATE28 , 15 : PRINT"SC0RE : " ; SCORE 

2040 IFK=lTHENK=0:B0XF(C,L)-(C,L+8),-3:B0XF(C,L)-(C,L+8),2:RETURN 

2060 L0CATE1,24:E=1:P=10:G0SUB 3000 

2070 IFK-1THEN2000£LSEE=2:P=5:LOCATE1,24:PR1NT"A1DE ; 



T07 



;:G0SUB 3 



000 



'UEFTKW.l); 1 
aEFTSCVJ^); 1 

"{entree)";XX$: 



,:G0SUB 3 



2080 IFK-1THEN2000ELSEE=3:P=2:LOCATE1,24:PRINT"AIDE : 
000:IFK-1THEN2000 

2100 L0CATE1,24:PRINT"REP0NSE : U ;V$;"."; :PLAY"03DQD0":LINEINPUT * 
B0XF(C,L)-(C,L+B).-6:BOXF(C.L)-(C.L+B),5:RETURN 
3000 PR1NT"ESSAI ";E;":"; :PLAY"MI" :L1NE INPUT R$:1F R$=V$ THEN L0CATE1,24:PR1NT" 
EXACT ! ";P;" POINTS ";:GOSUB30000:LINE lNPUT"(entree)";XX$:SC0RE=5C0RE+P:K=l:RE 
TURN 

3010 RETURN 

10000 DATA 1,118,120,2,112,120,3,110,121,4,108,121.5,108,121,6,108,121,7,108,123 
.7,127, 128 ,8, 107, 123,8, 126, 128,9, 107, 130 

10010 DATA 10,107,130,11,107,130,12,107,130,13,107,131,13,133,133,14,107,136,15, 
106,136,16,107,136,17,106,141,18,106,144,19,107,143,20,106,106,20,109,143,21,106 
,143,21,152,153,22,105,144,22,151,152,23,104,143,23,151,152,24,103,143,24,150,15 
2,25,101,146 

10020 DATA 25,149,152,26,97,153,27,92,153,28,91,153,28,155,155,29,57,58,29,90,15 
5,30,58,59,30,63,66,30,88,157,31,58,66,31,87,159,32,58,65,32,87,161,33,58,65,33, 
86,161,33,166,168 

10030 DATA 34,56,65,34,85,168,34,172,174,35,58,66,35,86,176,36,58,66,36,91,177,3 
7, 60, 66, 37, 68, 71, 37 ,87, 178, 38, 60, 78, 38,85, 178, 39, 61, 80, 39 ,83, 179 
10040 DATA 40,61,179,40,182,183,41,61,185,41,190,191,42,61,191,43,61,199,44,61,2 
02,45,62,202,46,36,39,46,62,201,47,32,39,47,62,201,48,32,40,48,61,200,49,18,20 
10050 DATA 49,23,25,49,28,30,49,32,40,49,61,199,50,16,41,50,61,198,51,15,42,61,4 
8,50,51,55,56,51,63,197 

10060 DATA 52,14,42^52,47,56,52,60,61,52,64,196,53,14,43,53,46,196,54,14,196,55, 
14,16,55,18,196,56,20,196,57,15,15,57,22,196,58,16,196,59,16,16,59,20,195 
10070 DATA 60,21,195,61,19,194,62,14,194,63,17,194,64,18,193,65,19,193,66,19,193 
■ ,67,18,21,67,26,193,68,26,194,69,30,194,70,31,32,70,34,194,71,32,32,71,34,194,72 
,35,193,73,36,193,74,36,38,74,43,194,75,40,194,76,40,194,77,46,194,78,46,185,78, 
189,193 

10080 DATA 79,45,185,80,45,187,81,45,81,81,51,187,82,51,186,83,51,186,84,49,185, 
85,50,184,86,53,183,87,53,182,88,52,182,89,52,180,90,50,179,91,50,179,92,51,179, 
93,52,179,94,52,178,95,53,177,96,54,176,97,54,175,98,55,174 

10090 DATA 99,55,174,100,56,174,101,59,174,102,59,174,102,180,184,103,62,174,103 
,177,184,104,63,174,104,177,185,105,65,174,105,178,185,106,63,172,106,177,185,10 
7,63,172,107,175,185,108,64,186,109,65,187,110,65,188,111,65,188,112,65,188 
10100 DATA 113,65,187,114,64,185,115,62,185,116,63,183,117,63,186,118,64,188,119 
,66,188,120,64,64,120,67,188,121,64,64,121,67,188,122,64,65,122,68,190,123,64,66 
,123,69,191,124,64,67,124,70,190,125,64,68,125,70,190,126,63,68,126,71,190,127,6 
3,69,127,71,190 

10110 DATA 128,63,69,128,71,187,129,63,69,129,71,183,129,186,187,130,63,70,130,7 
2,183,131,63,70,131,72,183,132,62,70,132,72,185,133,62,185,134,62,185,135,62,186 
,136,62,189,137,62,189,138,61,190,139,61,61,139,65,188,140,65,188,141,61,188,142 
,60,187 

10120 DATA 143,60,187,144,60,188,145,61,188,146,61,188,147,61,189,148,60,191,149 
,60,193,149,198,200,150,60,201,151,60,201,152,60,201,153,60,201,164,59,200,155,5 
9,199,156,59,199,157,59,199,158,58,199,159,58,198,160,58,196,161,57,195,162,57,1 
94,163,57,193 

10130 DATA 164,56,191,165,55,190,166,54,140,166,145,188,167,51,140,167,146,187,1 
68,51,140,168,152,186,169,54,138,169,152,158,169,160,186,170,58,136,170,165.186, 
171,57,135,171,165,186,172,57,132,172,169,186,173,56,130,173,171,182 
10140 DATA 174,56,57,174,59,129,174,173,178,175,61,129,175,173,178,176,63,128,17 
7,68,127,178,68,127,179,69,128,180,70,128,181,70,70,181,76,128,182,77,90,182,96, 
128,183,78,90,183,97,128,184,83,90,184,101,128 

10150 DATA 185, 102, 128, 186, 107, 128, 187, 107, 128, 188, 108, 129, 189, 110, 130, 190, 110,1 
23,0,0,0 

20000 DATA DUNKERQUE, 115,1, LILLE, 127, 10, DIEPPE, 99, 24, AMIENS, 116, 26, REIMS, 141, 40, 
CHALONS- SUR-MARNE, 147, 47, AUXERRE, 135, 73, TR0IS, 141, 61, BAR LE 0UC.158,51,METZ,172, 
42, NANCY, 172, 51, CQLMAR, 190, 64, STRASBOURG, 196, 52, MULHOUSE, 192, 72, D1J0N, 157, 94, BES 
ANCON.172,85 
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ATTENTION ! 

POUR VOUS PERHETTRE DE 

NOUS ENV0YER V0S 
PROGRAMMES, LE NUMER0 2 
D'HEBDOGICIEL NE SERA EN 
VENTE QUE LE 21 0CT0BRE. 

A VOS CLAVIERS ! 




INFOGRAMES 



une collechon 

de 

logiciels passionnante! 



20 bis. rue Godefroy 69006 Lyon 
Tel: 7/ 894.39.14 



SUPER HEROS 



Attention dans- les foyers, dans les bureaux, dans les clubs inf ornat i^ues: 
Ce programme est dangereux I 
Jusotu'a present les jeux '.-'ideos dechainaient la violence CONTRE 1 'ordinateur 
Cou les ttechants nonstres sPatiaux au'il generait >.fiu contraire* ce programme 
ne sert oiue d ''intermedial re EHTRE la violence des deux part icipants.Et chacun 
des deux joueurs doit essayer d'abattre implacablement 1 'aduersaire a coup de 
laser ou de faire exploser une mine a ses cotes. 



'e* 



' FMP X' : 808 1020000 : I MS : 2 > : DI MT ■■ 2 > : PRI NT" E " 
2 T<l>=516:T<2>=516-34 

3 LK=6:BL=0 

4 U=U- 1 : GOTO 1 5898 
50 FRIHT"E3"; 

180 FORI=1TO40:RRINT"V'; : NEXT 
288 F0RI-1TD5 _ 

258 PRINTS ""»■ 

tbb print"-. m wmmmmM 

356 PRINT"'. CC Ommffflm® 

3f.e prints tmrnmum 

398 ne:-:t 

480 FORI = lT840:PRINT"V'"NEi , T 

580 FRiHT"33 - A";SRCae:!;S(2:);sPCi:i0): " 

550 FORI = 1T840:PRINT'™.": :NEXT 

686 P0EE53248+T( 1 :> , 203:FTi f :E53248+T-:2/' , 
708 GETS*: IFG*=" "THEN708 
358 X=2:X1=1 

'51 IFG$=CHRt;«)THEH PRINT"!" : END 
880 IFG*="'-"THENX=l:Xl=2:Gi:TO1088 
858 IFGt="l "THEt'«=l:Xl=2:G!JTO2000 
375 Ir G*= "L "THENX= 1 : X i =2 : 60303000 
3:80 I FGT= ""' " THENXX 1 : X 1 -2 : G0Te4M@ 

981 IF G*-"2"THEH1000 

982 IF G*="S"THEN2000 

983 IF G*="Q"THEH3008 

984 IF G*="E"THEN40B0 

985 T FG-f=r HP*.: 1 82} THEHX= 1 : GOT050B0 
■88 IFG?-=" ,,T HEMX"X-0OTn5800 

987 IF6t="..s"THEN15000 

988 I FP.SO ' St 98THENF: ' 1 , =0 : 8 : 2 ) =0 : i i--i I- 1 

989 IFGS=CHRt ie0)THENPRINT"Fr.uc i " : np,i 
999 GOTO700 

1080 EB=202:POKE 53249+TCX > . EO \ 

1100 IFF'EFh' 53240+T X >-4B ■=6?THEN700 

1158 IFF'F.E> 53240-1 T I -48 =91 TXEI1700 

1280 lFPEF--5 J 24'-'+nx i-40'. = '4THENT X ->rx •■ -x\-.:,; '■ IB100P0 

1300 P01F5024X + 1 "--84:' x-r '.-40:0018 53248+T'Xi,E9 

1488 G0T0788 

2800 E0=205:POKE 53248 +TfX J.EB 

2108 I FPEEFX 53240+T < X : +40 > =F.7THEN700 

2130 iFF'EEl 53248+T!.;.X + 40.-91THEN708 

2200 IFPEEP 33248 + 1 X .+40 .=''4THENT'.X ' = T:'X .+40: 808! IP1B000 

2300 F0tE53243 + 7 X-84:' X = T x.+40:PraE O'X'+x+tX ' '■ E' : >" " 

2488 GOTO780 ' 

3880 E0-203:POKE 53240+T'X :. ,EO 

' 1 00 I FPEEK ■ 53248+T (':> -0 1 j =F 7THEN70O 

31X0 I='PEE> 53248+T X'.-01'.=?1THEN700 

3201- I.FPEEI =324-::.! ' -0 1 ■ = ~4THEN T ■ X =T- X -0 1 : 0081 IB 1 0000 

300 F'*E53248+TX3],64: T XX=TXX,-ei:F0KE 53248+T (XX' . EO 
3400 G0T0788 

40OO EO--204:FO|:'E 53240+T: ':.. rn 
4100 IFPEEK(33248+f (Xi+01 :.=F.7THEN78B 



-ederio DOLL 
-non CHH6HOUX 




iOT015 



-CO ' 



MZ80 



Kl>+l:GOT02 



Kl) + l:i30T02 
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CHIFFRES ET MOTS 



Ce programme, tres elabore, comporte deux 
phases de jeu : chiffres et mots. 
Le jeu de mots consiste a composer, avec les 
lettres d'un tirage, un mot aussi grand que pos- 
sible. Avec le jeu de chiffres, ilfaut reconstituer 
un nombre de quatre chiffres en effectuant des 
operations sur les six nombres d'un tirage au 
sort. 

Une assistance complete est assuree par I'ordi- 
nateur et des regies plus completes sont inclu- 
ses dans le listing. 



ee 


HOME 




85 


SPEED* 255 




18 


UTBB 2 




28 


PRINT TaBC 7 


.: "fc*-*********:******** 


*« 


dm" 




38 


PRINT TAB': 7 


j "%**t%X%%tZ%%ttt**%t 


**:****:*:*" 




48 


PRINT ThIK 7 


: "*" .: SRC':: 26 > .: "*" 


50 
J" J 


PRINT ThBK 7 
3 P C t; 18);"*" 


.■"*": SPC 9>j"J E 


68 


PRINT TRB( 7 


: "*" : ;5pci: 26 1 : "S" 


78 
" ; 


PRINT TfiB<: 7 
SPC< 18).;"*" 


: "*" i SPC( 9 >.! "D E 


88 


PRINT THB< 7 


■ "*"j SPC< 26 >; "* l! 


98 


PRINT TABC 7 


1 "* CHIFFRES ET DES 


MOT 


3 *" 




!88 


PRINT TrtEC 7 


;"*"; SPC< 26);"*" 


ill 


PRINT TBSt 7 


; ":************:******* 


w*x**t%%" 




!2S 


PRINT TfiB>, 7 


j "*******:*:*********** 


**:*******" 




:za 


PRINT TABS 7 


; "*****************$* 


******:*:**" 




►49 


UTBB 24 




>5« 


INPUT "ftPPUYEI 


SUR 'RETURN ' POUR CO 


1HEHCER" ;B$ 




:5l 


HOME 




!55 


UTftE 1 




:68 


PRINT TABC 5 


i "QUEL EST LE HUM JU 


"REN'JER JOIJEUR ~" 




278 


UTAB 5 




Z75 


HTAE 18 




280 


INPUT Tit 




298 


UTAB 18 




295 


HTAB 5 




388 


PRINT "ET CEL 


I DU SECOND JOUEUR?" 


319 


UTAB 15 




315 


HTAE 10 




328 


INPUT T£S 




338 


HUME 




3*8 


UTAB 12 




358 


PRINT "U0ULE2 


UOUS CONSULTER LES " 


355 


PRINT "REGLE8 


DU JEU '?" 


368 


UTAB 15 




378 


HTAB 20 




368 


INPUT >!* 




398 


IP Mint (Nt. 


• 1 > < ) "0" THEN 418 


see 


GQSUE 5888 




410 


REM 




428 


REM 




438 


HOME 




448 


UTAE 5 




458 


HTAB 2 




468 


PRINT "UNE 3E 


JJENCE COMPORTE ' " 


478 


UTAE 8 




488 


HTAE 18 




498 


PRINT "- BE UN 


TIRAGES DE LETTRES, " 


508 


UTAB 11 




518 


HTAE 18 




528 


PRINT "- UN T 


RAGE DE NOMBRE " 


538 


UTAE 28 




548 

?" 

545 


PRINT "NOMBRE 


DE SEQUENCES DESIREES 


UTAE 22 




558 


HTAE 12 




568 


INPUT SO. 




578 


UTAB 23 




588 


PRINT " 


LE JEU COMMENCE . . . 


585 


INPUT "ENTER" 


XKt 


598 


HOME 




688 


REM 




618 


REM FREMI 


ER TIRAGE DE LETTRES 


628 


REM 




6 38 


Jit « Tit 




648 


J2t - T2t 




658 


GOSUB .3888 




668 


Tl = Tl + LI 




678 


T2 = T2 + L2 




6 38 


GOSUB 4080 




6 98 


REM 




708 


REM DEUKIEME TIRAGE DE LPTTRE5 


718 


REM 




728 


Jit = T2t 




739 


J2* "Tit 





MP F-ll 



740 GOSUE 3000 

750 Tl = Tl * L2 

768 T2 = T2 + LI 

770 GOSUB 4080 

788 REM 

798 REM TIRAGE DES CHIFFRES 

880 REM 

810 J It = Tit 

820 J2t = T2* 

830 GOSUB 1200 

848 Tl = Tl + LI 

850 T2 = T2 + L2 

860 GOSUE 4080 

878 REM 

880 SQ2 = SQ2 + 1 

898 IF SI32 = SQ THEN 4588 

988 GOTO 638 

918 REM 

920 REM TIRAGE BU NOMERE 

938 REM 

1208 HOME 

1218 TIP. = INT <399A * Run t 1 ", 1 

1220 UTAE 1 

1238 HTAB 10 

1258 PRINT Jit, TABf LEU (Jit) 

+ 1 ); "COMMENCE. . . » 

1260 UTAE 10 

1270 PRINT TABC 8 5; «**«*«****«»:«** 

**********" 

12S8 PRINT TAEC 3)j»*"; SPC( 26 »;"*'' 

1298 PRINT TAE( 3);"*", spr< 2S>-''*» 

1308 PRINT TAEC 8);"* NOMBRE A TROUUE 

R : "; TABt 35);"*" 

1318 PRINT THB( 8).:"*", SPC( 26' *" 

1328 PRINT TABS 8).:"*"; TABt 20>,TIR, 

TABS 35).: "*" 

1330 PRINT TABS 8).:"*"; SPCS '?6"""*" 

1340 PRINT TBI"! FI)J«*»J SPCS SCi,»t» 

1358 PRINT TABS 8 );»******».* 1 t.* I t ). n t t 

********" 

1360 UTAB 21 

1370 HTAB 12 

1330 PRINT "TIRAGE. 

1390 Dl = INT '9 * RND s 1 )) + 1 

1408 D'2 = INT (9 * RND SI!) + 1 

1418 D3 - INT '.: 18 * RDH( 1 )) * 1 

1428 D4 = INT S 18 * RND < 1 )) + 1 

1430 D5 = INT SC4 * RND HI) + 1) 

* 25 

1448 D6 '= INT ",S * RND s 1 ) ) + 1 ) 

* 25 

1458 INUERSE ' UTAB 23 

1460 PRINT TABS 3),D1; TABS S),B2; 

TABS 18);D3; TABS 14);D4; TAES 18);*3 
1 TABS 23))D6 

1465 NORMAL 

1478 REM 

1430 REM TEMPS DE REFLEXION 

1490 REM 

1580 FOR H = 1 TO 28888 

1518 NEXT H 

1528 W = PEEK S - 16.336) 

15,30 HOME 

1548 PRINT " COMEIEN TROUUEZ UOIIS ■? » 

1550 UTAB 10 

1560 HTAB 8 

1573 PRINT Jit' INPUT LI 

1580 IF LI = TIR THEN 2000 

1590 UTAB 20 

1600 HTAE 8 

1618 PRINT J2t; INPUT L2 

1628 IF Li = TIR THEN 2820 

1638 IF AES STIR - LI) s AES STIR 

- L2) THEN 1678 

1640 LI = 3 

1658 L2 = 5 

1668 GOTO 2048 

1678 L2 = 8 

1688 LI > 5 

1698 GOTO 2848 

2888 LI = 10 

2085 L2 = 

2010 GOTO 2040 
2020 L2 = 18 

2838 LI = 

2035 INPUT " ENTER". i XX* 
2040 RETURN 
3000 REM 

3818 REM TIRAGE DES LETTRES 
•3028 REM 
3038 HOME 

3840 PRINT "C = CGHSONNES, U = NO 
YELLES" 




MASTERMIND 



A vous de trouver la combinaison de chiffres choi- 
sis par la machine en etudiant les reponses don- 
nees par votre ordinateur. Ce programme peut 
etre utilise avec une imprimante pour faciliter la 
recherche de la solution. 

Apres avoir fait RUN, la machine vous demande 
une valeur a partir de laquelle elle generera des 
nombres aleatoires : introduisez un nombre positif 
inferieur a avec 8 decimales. 
Apres quelquessecondes.le PC 1211 vousdeman- 
dera : VALEUR:; introduisez la combinaison de 
chiffres que vous voulez (si vous voulez entrer 
04101 par exemple, vous pouvez taper 4101). La 
machine etudiera votre combinaison et vous 
repondra suivant ce format : > votre combinai- 
son < nombre de chiffres bon et bien place — 
nombre de chiffres bon et mal place — nombre de 
coup. 

Amusez-vous bien! 

(Ce programme fonctionne egalement sur PC 
1245,1251 et1401.) 

LUC BURELLER. 



PC 1211 



n:R= 



10: ■ "PRINT "* 
MASTER HIND 
+ ":BEEP 1 

20: INPUT "SEMEN 
CE ALEAT01RE 
:"SA 

3C!!E<5::B=B4-'?97Ii: 
A: 1KB- INT B: 
C=INT <B*1E5 
>:W=C:V=3i: 
GOSLtB "DEC" 

40sU=C:'K31: 
GOSUB "DEC": 
INPUT "VflLEU 

R: ";:d:i>=int 

D: IF <BX»*< 

D<1E!5>THEN b 


50: PAUSE "ATTEH 
TION 0.<N<99 
999. "EEH3TB 4 



60!E=E+KK= 
0:W=:D!V=36: 
GOSUB "DEC"; 
IF C=@THEN " 
END" 

70: FOR 2=27T0 5 
UV=2+5: IF A 

«>=«<: YMJ-T 

BOiHEXT 2: FOR Z 
=32T8 36= FOR 
U=27T0 51: IF 
ft<Z5»fl<W>LET 

?Bft<W>=6S 

90: next w:next 
;?jeeep 1 

lOOi PRINT ">"9 
USING "MBJHt 
r'iBI M <'J 

UBTNij "Jt:I"5R 



■ MASTER MIND * 

i 1234K 0- 1 1 

* 67S9CK 0- 2 2 

< 12379X 0- 4 Z 

< 91343< 2- 2 4 
» 9431 7< 3-25 
> 91714-:: I- 1 e. 

7 COUPS? Pi3UR 
94713 



:ilO:.JLiTO 40 

120: "DEC'FOR Z=0 
TO 4:V=V-Z:K 
=-<IHT W'lO'-Z 
V10:tt<V)= 

INT <-,<x~im 

:^>+io:':hext 

2: RETURN 
130: "END "BEEP 3: 
PRINT E5 H CO 
UPS. POUR "J 
USING "9J8M 
a"!D 

140: input "voule 
z-vous rejou 
er?";q* 

150: IF iiI="OUI" 

THEN 30 
160: IF &*="0" 

THEN 30 
170: END 
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o 



? 



£0010 DATA CHALON-5UR-SA0NE,155,94,BOURG EN BRESSE, 161 ,107, MONACO, 199, 160, NICE, 1 

96, 162, CANNES, 192, 164, TOULON, 174, 175, MARSEILLE, 167, 170, AIX EN PROVENCE, 165, 165, G 

AP,174,142,BRIANCON,184,134,CHAMBERY,173,120,GRENOBLE,170,128,MEGEVE,183,113,ANN 

ECY.175,112 

20020 DATA ROAHNE, 144, 110, LYON, 155, 117 .V1ENNE, 156, 121, VALENCE, 156, 134, SAINT ET1E 

NNE, 148, 124, ORANGE, 156, 152, AVIGNON, 156, 156, NIMES, 148, 159, PARIS, 117, 49, MELUN, 121, 

56,ALENC0N,85,57,CAEN,79,41,CKERB0URG,61,28,DINAN,53,56,0EAUVILLE,85,37,LE HAVRE 

,84,33 

20030 DATA ROUEN, 100, 37 .EVREUX, 100, 45, VERSAILLES, 112, 50, FONTAINEBLEAU, 122, 59, BOH 

RGES, 118, 88. SAINT NAZAIRE, 49,81, LORIENT, 30,71. QUIHPER, 22, 63, BREST, 17, 44.RENNES, 6 

9, 63, SAINT MAL0,56,51,LE MANS, 86, 67, CHARTRES, 104, 58, ORLEANS, 111 ,70, MOULINS, 132,1 

00 

20040 DATA VICHY, 135, 108, MONTLUCON, 120, 104, CHATEAUROUX, 107 ,94, POITIERS, 87 ,99, NIO 

RT, 74, 103, LA ROCHE SUR YON, 60, 94, NANTES, 59, 83, ANGERS, 73, 78, TOURS, 92. 81 ,R0DEZ, 120 

, 148, AURILLAC, 118, 135, BR1VES, 104, 130, PERIGEUX, 89, 129, LIMOGES, !00, 115. ANGOULEME, 8 

3,118 

20050 DATA R0CHEFORT,66,lll,LA ROCHELLE, 64, 107, ARCACHON, 60, 138. CLERMONT FERRANO, 

129, 47 ,AGEN, 90, 150, MONTAUBAN, 101, 156, BORDEAUX, 71, 135, CAHORS, 104, 115, ALBI, 114, 157 

.CARCASSONNE, 117, 173, FOIX, 105, 168, PERPIGNAN, 168, 184, BEZIERS, 131, 170, M0NTPELIER.1 

41,165 

20060 DATA BIARRITZ, 54.163, BAYONNE. 56, 165, PAU, 73. 169 

30000 PLAY"T404DODOPDOFAPFAPSOPSOP0500P04LAFA" :RETURN 
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3041 X = z 

■3842 OJTBB 4 

3845 FRINT Jit; TAE< 15 >; "COMMENCE 

3848 PRINT i INUERSE 

3868 GET Et 

3878 IF Et = "1,1" THEN 3188 

3030 IF Et = "C" THEN 3358 

3898 GOTO 38G8 

3100 X « X + 3 

3118 At = "AEIOUYEE" 

3120 Z - INT (7 * RHD ( 1 V, + 1 

3138 PRINT HID* (flt,Z,l > 

3135 PRINT 

3148 IF X > i 29 THEN 3168 

3150 GOTO 3868 

3160 NORMAL : FOR H = 1 TO 15038 

3178 NEXT H 

3175 H = PEEK < - 16336':- 

3138 HOME 

3190 PRINT "ENTREZ LES HOTS TROUUES" 

3280 UTAB 10 

3218 HTAE 5 

3220 PRINT Jit; " " ; INPUT >(t 

3230 LI = LEU <X$> 

3240 IF LI .; 9 THEN 3200 

3250 UTflB 28 

3260 HTAE 5 

3273 PRINT J2t;" ', INPUT K» 

3288 L2 = LEN <X*> 

3293 IF L2 ... 9 THEN 3250 

3380 IF LI < L2 THEN 3330 

3318 L2 = 

3320 GOTO 3340 

3338 LI = 3 

3335 INPUT "RETURN") Kb* 

3340 RETURN 

3358 X = X + 3 

3360 At = " Q W R T p S .0 F G H J K L Z K C u E H M " 

3370 Z = INT C 19 * RHD ( 1 > I + 1 

3380 GOTO 3138 

4000 HOME 

4810 UTHB 1 

4020 PRINT ,, :t:.t':t:*t:t:t:t':t::*:t:***:(c8r:riRE.t..ft IS ft 

4030 UTAE 10 

4040 HTAE 5 

4850 PRINT Tit; THEC 28), Tl 

4860 UTAE 20 

4070 HTAE 5 

4080 PRINT T2t; THE; Z0..-;T2 



413 8 5 


INPUT "ENTER" j XX* 


4 1-3 9 Fj 


RETURN 


4513 9 


REM 


4518 


REM 


45 2 


HOME 


453 


PRINT TttBC 10 >; "ft******:**:*:* 


4540 


IF Tl = T2 THEN 4628 


4558 


IF Tl > T£ THEN 458 @ 


4563 


2$ = T2$ 


4570 


GOTO 4590 


4586 


Z$ = Tl* 


4539 


UThE 13 


4595 


PRINT "C 'EST ";Z$: " (31 II GHGH 


4668 


PRINT "hUEC " ■. hES (Tl - T2 


filMNi 




46i@ 


GOTO 4638 


4628 


PRINT "MATCH NIJL M. H ' ! M H 



4630 INPUT "UNE AUTRE PARTIE 

4640 IF MIDI (XX*, 1,1) = "n" 

4650 HOME 

4660 UTAE 10 

4670 HTAE 10 

4680 PRINT "A!J REUOIR 

4780 END 



5800 


REM 








5818 


REM 








582 


REM 








5838 


HOME 








5358 


PRINT 


CE JEU 


COMPORTE 


: PAP 


50b>j 


PRINT 


xmt, 6 


J "--JEU HE 


MOTS 


■:.0/8 


PRINT 


TRE( 6 


'"-JEU DE 


CHIP 


5 08 8 


UThE 6 








5 09 


PRINT 


'IL SE-Ji 


UE h DEUX 


MPFI 


5180 


PRINT 


'CHhRG-E 


BE COMPTER 


i ES 



PRINT "DE 8AU0IR QUI A GAGNF r^ 

PRINT " IMDIQUE DANS iJUEL OEDRE ' 

FRINT "DOIUEHT JOUER LES PARTIS 

INPUT "ENTER", XX* 
HOME 



5160 PRINT " 
5165 "TAB 3 



PRINT "hLTERNATIUEMEHT EN 



PRINT 
PRINT 



PRINT 
RETURN 



ONE UOVELLE OU ONE 



EN APPUY 

SUR U' 



LES GRANDS PROJETS 



Un Grand Projet, c'est avant tout un but, une idee, dont la complexity ne permet pasd'envisager 
seul d'en assumer la charge. 

Ce but, cette idee sera pour nous un logicieletcelogiciel doit remplirdesfonctionstellesqu'une 
personne ne pourrait le realiser, seule, dans des conditions normales. 

Mors nous vous proposons de regrouper vos moyens et, par I'intermediaire d'Hebdogiciel, de 
realiser ces Grands Projets. 

Pour debuter, nous vous proposerons une idee et,surun materiel donne, nous allons vous guider 
jusqu'au terme de cette realisation. 

La progression se fera par etapes, chaque etape s'appuyant sur les etapes precedentes et 
venant les completer par une fonction nouvelle. 

Vous trouverez, bien sur, dans !a rubrique des Grands Projets, le listing de la meilleure solution 
proposee par un lecteur pour I'etape precedents ainsi que le probleme a resoudre pour I'etape 
suivante. 

Pour un materiel donne, cette rubrique sera mensuelle car il faut, bien entendu, que vous puis- 
siez realiser et expedier vos solutions que nous devons tester, imprimer et diffuser. 

Afin de faciliter la tache des eollaborateurs d'Hebdogiciel, nous vous demandons de nous 
adresser vos solutions, accompagnees d'un texte duplication si necessaire, sur un support cassette 
ou disquette suivant le type du Grand Projet, en precisant, bien sur, votre envoi Grand Projet Materiel X. 

N'oubliez pas que votre solution doit imperativement utiliser I'ensemble des etapes preceden- 
tes et conserver la coherence dans I'appellation des donnees ou leur description. 

Si vous souhaitez que nous vous renvoyions votre support, joignez une enveloppe timbree a 
votre adresse. 

Et puis, ecrivez-nous pour nous faire savoir quels sont les grands projets que vous souhaitenez 
voir dans Hebdogiciel. 

Et puis... et puis... il est temps de parler du premier Grand Projet. 

Le premier GP sera a la fois modeste et ambitieux. Modeste parce que I'idee n'est pas nouvelle 
mais ambitieux parce que nous souhaitons que vous realisiez un vrai chef-d'ceuvre : 

UN JEU DE DAMES 
sur TEXAS INSTRUMENT Tl 99/4A en Tl Basic avec la console et un magnetoscope a cassettes. 

Pourquoi TEXAS et pourquoi un JEU DE DAMES ? 

II est possible que nous vous reservions une surprise 

Nous vous proposons cette semaine le debut de ce programme qui comporte : 

- le menu de depart; 

- une fonction d'affichage et de suppression d'un message; 

- une fonction d'attente de I'entree d'une touche. 

L'objet de la premiere etape : 

1) Completer la partie du programme entre 20000 et 20200 qui devra contenir : 

- I'affichage du titre du jeu avec des effets graphiques et/ou sonores ; 

- la regie du jeu qui pourra etre affichee au choix du joueur. 

2) Completer la partie du programme entre 240 et 2200 qui devra contenir : 

- I'affichage du damier sur le cote de I'ecran ; 

- un reperage des cases par des lettres et chiffres materialises sur le bord du damier ; 

- I'affichage des pions. 

Realisons ensemble un grand projet francais ! 



106 REN HUES 




no GDsuB 20000 




120 GD5UB 20200 




130 RE* SFFICHhBE HBW 




140 CALL CLEAR 




150 FRINT "CHIISISSFJ ■*: 


S" !. OSPilE 


DIL£«3*:: 




m FRINT " 4. REPRISE 


'ONE PARTIE": 


170 mm choh 




ISO If iCH0Il>=n*iCHOIX . 


4i,2 IPO 230 


150 «E5="ERREUR BE MM" 




200 LIS=2 




2:0 SC3UE T/jZi' 




220 SOTO 170 




230 0"* CHOIS 02 T o .40,220 


,4200.6200 


240 SET SM.'Ek 




:: ■ pin jeu ti?j-49 




4200 REM PROBLEMS 




6200 RE." REPRIEE FARTIM 


-iii - :; 


62K EDTO 130 




20000 REf :n;!ife:s„':oN 


RE6LB 


20005 lali :i;k> 




200IO PSIK7 "IHIT regie; 




30;.. ; EIjEn 




. . !l "-:■ NliSIBUE 




2)210 ;t: EOjM',200.44 . 


' 



un jeu de dames 



TI99/4A"::" 3. PR 
2021s hOT I 
20220 CALL KEsiO.R.S! 
20230 IF 5=0 THEN 20210 
20235 CALL HCHAR(24.!7, 
20240 RETURN 
25000 REN ATTENTE 
25002 FOR I=i TO 12 
25004 CALL HCHhF!24.16» 
25004 NEXT I 
25010 CALL KEt(0,R,9/ 
25020 IF 5=0 THEN 25010 
25025 CALL HCHARI24.17, 
25030 RETURN 
25040 REN 

25O50 REN AFFICHA6E HES 
250S0 FOR I=j TO LEN(«E$ 
230'7O CALL HLNnftiLIG.INT 




Tr;E:-:Es „ LA Lii 



Lib LT LLNlRL 
ft5C(5E»(«EI. !,!»,! 






Suite de la page 2 



HP 



41 



jjdye d. 


18? * 


288 HON 


227 RUN 


246 GTO 16 


265 CIS! 




198 RCL 14 


289 CF 23 


228 "M W ZERO 


'■ 247*LBL -PR' 


266 CLfl 




191 RCL 15 


218 ■ BOlJELt " 


- 229 PROKFT 


248 FIX 6 


267 RCL 




192 1 E3 


211 PROBFT 


238 LflSTX 


249 ■•nfiSCOTTE 74 


268 X=8" 


m 




212 flOFF 


231 X=V? 


258 PROHPT 


269 GTO 


vl> 


194 XOY 


213 FS' 23 


232 SF 68 


251 m 


278 RCL 


^K 


195 1 E4 


214 XEQ -W 


233 2 


252 STO 86 


27! RCL 


^r 


I9p * 


215 FS?C: 23 


234 FSv 86 


253 ■ BfiNOUE ?- 


272 CLRb 




19? t 


216 GTS 66 


235 ST* 61 


254 PRL«FT 


273 STO 




198 + 


217 PI 


236 FS?C 86 


255 X=K7 


274 RDK 


186 RCL U 


199 11111 


218 ST» 86 


237 GTO 17 


256 GTO "PR" 


275 STO 


181 RCL IS 


286 ■ 


219 TONE 9 


238 -BOIffiSGE.... 


257 STO 68 


276 m 


182 PCL I; 


281 FTO 


228 RCL 66 


239 mm 


258 S8RT 


277 STO 


183 16 


282 X=fi7 


221 i E2 


248 GTO 16 


259 1/X 


278 GTO 


184 * 


283 SF 85 


222 * 


24HLBL 66 


268 ST+ 66 


279*LBL 


185 t 


284 RTN 


223 IS? 


242 RCL 61 


261 -iraci BSE*. . 


■ ' 286 SF 1 


184 XOt 


285HBL 12 


224 2 


243 RCL 67 


262 fiVIEH 


281 OFF 


18? 1 ES 


286 STO 81 


225 HOD 


244 * 


263*LBL 16 


-:■£■'■ fTC! 


!F:8 * 


287»L6L 17 
9 


226 STO L 


245 ST+ 88 


264 CF 88 


283 EM 



* 
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Ml 80 



ATTENTION ! 

POUR VOUS PERMETTRE DE 
NOUS ENVOYER VOS 

PROGRAMMES, LE NUHERO 2 
D'HEBDOGICIEL NE SERA EN 
VENTE OUE LE 21 OCTOBRE. 



4150 IFPEEK{53248+T'::"7'+01! = 91THEN7BB 

4266 IFFEEK(53243+T(X)+61 .=?4THEHT{X)=T(X)+81:GOSIIB16BOB:9<X1>=S(X1 

9306 Pi.,KE55248+TfX).64:TiX> = T(X)+01:POKE 53248+T! X ).EQ 

4408 GOTO7O0 

5000 IFFEEI O53248+T(X))=204THEHST=1:S= 120 

5001 iFot-ii 53248*T(X' '=203THEHST=-1:S=128 
0007 !FBEbk(53248+T(Xil=205THENST=40: 8=121 
0003 IhpELt ■ 55248+T X J s=202THENST=-40:S=121 
5605 0P=T<3-KS 

5B1B PO=T(X) 

5050 P0=P0+8T: IFPEEK(53248+P0)=67THENP0KE53248+PO, 1 87: GOTO 5100 

0060 IF PEE' -532 400 PO '' =81 THEN IOSR',62): POKE 53248+P0.91 :KL=1:G0T051 

3.070 IFPEEK'53248+pi:i)=74THENEL=l:GnsuE:[BBBB:GL=B:8MTn5100 

5075 I FPO=OPTHEHS f X 1 =8 '. X > + 1 : 60T82 

5078 P0KE53248<-P0,S 

5030 GOTO5050 

5100 FOF1=T(X)+STTOPOSTEPST:P0KE55248-H. 128 

5200 NEXT 

5250 IFKL=1THENP0KE5324SI+I-ST,91:KL=6 

5270 IF LK=1 THEN POKE 5324FI+I-ST. 74:LK=0 

5300 GOTO 760 

10000 REM 

10681 P8=T(X):IF E'L=1 THEN F0=PO 

1 0002 MU8 J 3: ' , 00B0r:O[iOE0F0G0" 

1(1605 LK=1 

1 001 I FPEEI ( 57248+00-40) =74THENF0=F0-40 

18026 I FPEEI '53248+p0-0i:i=74THENP8=p0-01 

16636 RESTORE 

1004B PEhT'B0,B0:OHTB-46, 53, 1,53, 1,113,46, 126,40. 120.4O.llo.. 

10050 C'BTfl-1, 1 18, -40, 126, -40, 120, -46. 118 

10080 DHTfil, 128, 1, 128,1, 128,46, 128,40, 128,40,128.-1,128.-1, 

18070 dhTh-1. 128,-40,128,-40. 123- -40. 128,0,0 

10O3O P0=PO+O8: IFB0=0THEHRETURN 

10085 IFP0=T( 1>THENS(2 )-S' Mil G0T02 

10086 IFF0=T':2<THEHS<l>=Sa:! + l:GOTO2 
16636 POKE 53243+P0,B0:GOTO 16040 

15000 U=U+1:IF U=9 THEN U=l 

15001 ON U GOTO50. 15010, 16000. 17000. 1800(1. 18040. 10080. 18100 
15010 FRIHT"™"; IFOR 1 = 1 TO 40:PPINT"S": :HEXT 
15020 FOR 1=1 TO 63 

15030 prints tmiiititn v. ■ 

15040 NEXT 

15650 PRINT" - . rmiUin 

1506S PRINT 1 ". BHsliJSJWS] 00 

15076 PRINT'". tiMSiliSaS CD 

15080 PRINT"". 

15090 FOR 1=1 TO 

15166 print'™. ■HHiHfl -.-. imummismm :"-. 

15110 NEXT 

15115 PRINT"!!" 

15200 GOTO500 

16000 PRINT"™"; :FOR T 

16610 FOR 1=1 TO 5 

16020 PRINT".": SPd 38) : "V ; 

16036 priht"-. an cd en 

16040 PRINT'". EC CD CD 
1 6050 PR I NT "■. " ; SPC: < 33 ) : "S " ! 

16868 HKT 

16070 FOR 1 = 1 TO 40: PRINT 1 "." :: NEXT 

16075 T(l)=T(l)-40 

16036 GOTO 506 

17006 PRINT"IIH":FOR 1=1 TO 40: FRUIT'S" : :HEXT 



cd i 



=1 TO 40: PRINT 1 ".";: NEXT 



17616 
17015 

17020 
17030 
17040 
1 ,'050 
1706(3 
17065 
1 7070 

! .-BOO 
1 7090 

17100 
17110 
17120 
17130 
17146 
17150 
17166 
17176 
17180 

180O0 

18010 
18020 
1 8825 
18030 
18040 
1 0050 
1 8008 
13060 
! ISO 70 

1 80KO 

18082 
1 8084 
18085 
18086 
1800 7 
1 BUBO 
18100 
1 8 1 BO 
18108 
13107 
181 7B 
18125 
18130 
20066 
:ooi'.' 
20620 
20025 
20636 
2OO40 
20050 
20O66 

706,01 



•■?.;' ': 

20100 

20110 
00120 
20183 



PRINT"-, mm m s s sss v: 

print's s mm MM s \ s ssssw. -. wis s"s 
print"". -. ■■■■. m ssssss -. s nr. s s«; 

FRINT"S S h %s V. \wy3V*7.sw^ S"; 

PRINT"". SSBHS SSS CD s SHSMM \ SS»; 

PRINT"". S BIDS-. S CO SSSS EC SIST. -. CD ". -."; 

PRIHT"S S SS S ". \ gj CD '. s CO SS V": 

PRINT"". s S S SS V-A S S $ SS % ". V; 

PRINT'"-. S S S V. S -*l CO S v. n. v.": 

PRINT'". V.VS \ ^ V. s CD S V'.S S V"; 

PRINT"". S S -. % MM -. S-ms SSS S": 

PRINT"SS S V. CD S S IHSSS SSSKWWSHli ■• S SS"; 

PRINT"SS S S CD S V ". -.". ■. UI1HW. S \"; 

print"-.s -. ■• \ -. -. ^ ssswvwwt v v H i 

PRINT"". S ". CD SSS CD S SRVWWli V; 

PRINT'". S S S-. SS CDSW-. Mji S S«! 

PRINT'". CD SSW--. ■■-. -. V. 1MB1 v; 

PRINT 1 ". ". S S V; 

FOR 1=1 TO 40:PRINT"S";:NEXT 

GOTO 50(3 

PRINT""";:F0R 1=1 TO 40: PRINT'"." ;: NEXT 

FOR I = 1 TO20 : PR I NT "S " ; SPC ( 38 ) ; "S " ; : NEXT 

FOR 1 = 1 TO 40: PRINT"".";: NEXT 

T<1)=478:T(2)=481 

GOTO 500 

PRINT 11 ™"; :F0R 1 = 1 TO 40: PRIHT 1 "." ; :NEXT 

FORI = 1TO20: PR I NT 'SSHBMBHHHMHIIIHHHVi " : 

NEXT 

FOR 1=1 TO 40:PRTNT"S";:NEXT 

GOTO 500 

PRINT"™"; :F0R 1=1 TO 40: PRIHT 1 "."; : NEXT 

FOR 1=1 TO 40:PRINT"S";:NEXT 

F0RI = 1T018:PRINT"S 1III I IIMIIT I TITITTTI I I I I IT M TTT1 ■.»; 

NEXT 

FOR 1 = 1 TO 40: PRINT'"-";: NEXT 

FOR 1=1 TO 46: PRINT'S";: NEXT 

GOTO 500 

PRINT"™ 11 ; :FOR 1 = 1 TO 40: PRIHT"-." ; :NEXT 

PRINT "S";SPC(38);"S"; 

FOR 1=1 TO 1S:PRIHT"S SSSSSSV.WAV.SSSSSSSSWW.SSSSSWA S" 

PRINT "S";SPC(38);"S"; 

FOR 1 = 1 TO 40: PRINT 1 "." ;:HEXT 

TC1)=478:T(2)=481 

GOTO 500 

PR I NT " G " : H*= "OBBBSESSE " 

PRIHT'EEBBBESBEEEESSSSBBESEEESPresentent : " 

PRINTH*; "Doll £ ChMnous;"; 

F0RI=1 TO 1660:NEXT 

PRINTH*; "Doll K Chcoiiou:.:"; 

PRINTH*; "Doll- 8 ChMrtOux"! 

PRINTH*! "Del I — S Chajnoux"! 

PRINTH*: "Ool I £ Chajnoux"; 

PRINTH*; "Dol I EChosnoux"; 

F0RI=1T021 : PRINTH*; "Dol h"; : GET6*: IFLEHCGtlwlTHENRETORH 

FOR J=l TO I: PRINT"-" ;:HEXT:PRINT"C<:CKio.»r IO '.K": NEXT 

F0RI=21T029 

PRINTH*; "Dol 1"; :F0R,1=1T0I:FRINT"-"; :HEXT 

PRINTLEFT*' "OChooinoux" ,29-1); " "! NEXT 

riLISIC"_F3_G3_fi3_B3_C3.D3_E3F3G3H3E:3C3D3-F3-G3-H^E3-r:3-[>3" 



20185 

20190 
20195 
20200 
70205 
20210 
20300 
70320 
20400 
20506 
20510 
705.H 
20530 
2054" 
205513 
20560 
2B570 
20580 
2B581 
3059 -' 
2000 ; 
20390 
20000 
20616 
206J 
20672 
20624 
20626 
70070 
20633 
26636 
20687 
20036 
20640 
20645 

7B6=:0 

20655 

20660 
26665 
20670 
20671 
20672 
206 7 3 
20674 
20675 

20677 

20t.O" 
20005 
20690 
20695 
20k'V, 
20-00 
70705 
20710 
26-15 
26720 
26725 
20730 
967'.". 
2B740 
28745, 
,-■0746 
28747 
7074 ' 



FORI=29T021STEP-l 

PRINTH*; "Doll"; 

F0R,I=1T0I:FRINT 11 -"; :NEXT 

PRINTLEFTt! " S.Cho.s noux " , 29-1 ) 

F0RJ=53378Ti:i53373+ ! 30-1 > : POKE J , 227 

HEXTJ, I 

MUS I C " n0E:eR7H0Ei0R7B0BOR7 " 

PR I NTH* ; " 33333 &Ch<" noux " ; 

MIJSIC"_F3.G3_n3_E3_C3_D3.E3F3G3fl3B3C3D3-F3-63-H3-B3-C3-D3" 
PRINT "UOBBBBBB": FOR 1 = 1 TOl 1: PRINT" 



POKE 53629, 64: POKE 53637, 64: POKE53673, 54:P0KE53913,64:P0KE 5795,7, , 

POKE 53869,64 

PRIHT"HESSBB8BSBBS";CHR*'; 101,1 ; : F0RI = 1T013: PRINT"-"; 

NEXT: F0RI=1T013: PRINT"!" ;:NEXT:F0RI=1T013: PRINT" "::NEXT 

FORI=1T013:PRINT"3";:NEXT:FOR:I=1T011:PRINT"3 ";CHR*{ 101i: :NEXT 

FORI = 1T04:PRINT"3 3B" :CHR*(99) : U1EXT 

F0RI=1T04:PRIHT"3 " ;CHR*< 101 >;: NEXT 

PRINT"3";CHR*(102);:FORI=1TO15:PRIHT»3BI"::NEXT 

FOR I = 1 TO 1 5 : PR I NT " S " ; : NEXT 

FORI=1T015:PRINT"SS ";;NEXT 

F0RI = 1T015: PRINT "B": :NEXT 

PRINT'S 3B 11 ;i8HR*!:i02);"3 SB "; CHR* C 1 00 );" 33-33- 33 S";rHP*<99>: 

PRINT'S 3S";CHR*(89;.;"3 30"; CHR*(99) ; "3";CHR*( 1011 : »s" ": CHRJM01 >: 

PRINT"S ";CHR*(1O1);"S";CHR*!102): ,onx»,iBlJ, 

F0RI=1T04:PRINT"3BI ";:NEXT 

FORI=1T04:PRINT"B": :ieXT 

FOR I = 1 T04 : PR I NT " SB " ; : NEXT 

F0RI=1T04: PRINT"B" ; : NEXT 

F0RI=1T06:FRINT"S " ;CHR*C 101 >: : NEXT 

F0RI = 1T015:PRINT"3BI "; :NEXT 

F0RI=1T015:PRINT"B"; :NEXT 

F0RI=1T015:PRINT"3B ";:NEXT 

FORI=1T015:PRINT"B";:NEXT 

FOR I = 1 T04 : PR I NT " 3 3B " ; CHR* (1 02 > ; : NEXT 

PRINT"S";CHR*<10O:>; "33-33- 33 E S3"; CHR*(1O0); "33-33 E 33 ";CHR*'i: 

F0RI=1T05: PRINT'S S3 " ; CHR* C 1 02 ) ; : NEXT 

PRIHT"S" ; CHR* (180) s "33-S-S-SS." ; CHR*( 102) ; "3 SB 11 ; CHRtC 102) ; "3 " ; 

PRINT"BB" : CHR*( 102) ; "3 3BB" ; CHR*( 101 ) ; "S" ; CHR*(99) ; "3 SB" ; CHR*.; 99 

PRIHT"3 SS";CHRf<;i01);"— S3 33"; 

F0RI=1T04:PRIHT"3 " ;CHR*( 161 );: NEXT 

FORI = 1T015:PRINT"3BP; :NEXT 

F0RI=1T015:PRINT"B"; :NEXT 

F0RI=1T015:FRINT"3B ";:NEXT 

F0RI = 1T015:F , RINT"B"; :NEXT 

F0RI=1T06:FRINT"S 3B";CHR*(99) ; :HEXT 

USR(62) 

F0RI=1T04:PRINT"3 ! 
PPINT"3";CHR*.;10i;.| 
F0RI=1T06:PRINT"3 : 
PRINT"3";CHR*(100)I 
PRINT"-3- S3 E SB" 
F0RI=1T04:PRINT"3 ' 
F0RI=1T04:PRIHT"3 ! 
PRINT"3";CHR*<;iO0) 
F0RI = 1T04:F-RINT"3 



|3 11 ;CHR*.;102);:NEXT 

!B":CHP*<99);:NEXT 

"33-S3-S- S3 S B3";CHR*< 

CHR*(99);"3 3B";CHR*!:99) 

:CHP*<101);:NEXT 
IB";CHR*(102);:NEXT 

" 33-3-3-3*. "; CHR* ( 1 62 ) ; 
,B";CHR*( 102);: NEXT 



PRINT"3";CHR*(1O0); "33-33- 33 E"; CHR*( 102): 

F0RI = 1T04:PRINT"3 3 SB" SCHW(182) : :HEXT 

F0RI = 1T09:PRINT"3 33" ;CHR*(:100); : NEXT 

PRINT'S" ;CHR»(99 .•: "SBISIStSB SS" : CHR«( 99 >S "SSI 3B-BB 3B"«3BB";CHR*(:i0 



PR I NT "3 3! "; CHR* (10O); 
F0RI=11015:PRINT"3BI";:NEXT 
F0PI = 1 Till 5: PRINT "B"::HEXT 
I >«.' I 1 lnl'oH.'INI "3B ■■ nil 71 



; CHR* (99); 



II' 



•■UK"!!" 



oil 



20, 



0755 

7O750 
2O7»0 
20763 
20764 
20765 
20766 
00770 
20771 
20772 
20778 
20775 
20777 
20779 
2606(1 
2088 1 
308(1 ,' 
01803 
26810 
OOOiO 
00 20 
20:830 
20840 
20850 
0O855 
- 00 -0 
20865 
20366 



PRINT'S 3B":LHR*' 99i:"3 3B" 
PRINTCHR*(99);"3";CHR*(100);": 
F0RI=1T04:PPIHT"3 SB " i CHR* ( 1 0; 
F0RI = 1T06: PRINT'S 33";CHR*(r 



HPt' 10O';"33 33 33 E 3B":CHP*' 
13-33- 33 E";CHR*(102); 
NEXT 

NEXT 



3S SM"iCHRt<188) 



PRINT"S";CHR*(99);"S3I 

PRINTCHRJC100); 

PRINT"3":CHR:*(101); 

F0RI = 1T06: PRINT'S 33" ;CHF,:*(99); :NEXT 

FOR I = 1 T027 : PR I NT "- " ; : NEXT 

FOR I = 1 T027 : PR I HT " 3 " ; : NEXT 

F0RI=1T027:PRINT" " : : NEXT 

F0RI=1T027: PRINT'S" ;: NEXT 

PRINTS ";CHR*(101);"3 ";CHR*( 102) ; "SB I3BI3B SB SBB"! 

F0RI=1T017:PRIHT"3 " ;CHR*( 161); :NEXT 

PRINT"3":CHP*(99);"3BI3BISB 3B13BB " ; CHR* (99); "3BISIS1SE D 

FCRI=255TO0STEP-l:POKE57348, I 

P'OI E57352, 1:GET6*:IFLEN(G*) = 1THENRETURN 

NEXT 

USR(62) 

PPIHT"EBEEEEEBi"^ jt-u ce -ioue a deux, U but. est dOibatt re 1 

PRINT"BB":F0RI = lT013:pRINTTflB.:i9);"l":NEXT 

PRINT"IDEEBBBBBBBEEE2 = t": TBBC26); "^ = 1" 

PRIHT"EBEEBES = 4"; T0B(26); "I = +" 

PRINT"ESEBEEQ = *";TBB(26); "L = «■" 

PRINT'SSBESBE = +"; TBEK26) ;CHR*(1 14); " = -" 

PRINT"B SPACE = LOSER" :TRB(24); " CR = LHSER" 

PRINTBBESESCHBHGEMENT [>E TERRAIN: shift '"; CHR*(124); 

PRIHT'BESSSSSSEESEREMISE B ZERO: sm 1 SSSEccip " 
PRINT"™" ;:USR124S3i: RETURN 



13";CHR*(10G); "S 33" 



'adoerso i re" 



COTE DE L'OCCASION 



Cette semaine, la cote de I'occasion de SHARP. Les prix des materiels neufs correspondent aux 
pnx courants pratiques. Les cotes de I'occasion ont ete calculees en collaboration avec SHARP et les 
revendeurs SHARP et se rapprochent le plus possible des valeurs echangees entre particuliers (ies 
extensions et les peripheriques ne sont pas pris en compte dans les calculs). 



ncO 





Neuf 


81 


80 


PC 1211 


- 


500 


- 


PC 1212 


950 


600 


- 


PC 1251 


1450 


- 


- 


PC 1500 


2 200 


1500 


- 


MZ80K 


- 


2 500 


2000 


MZ80 A 


8 000 


3 500 


- 


MZ80B 


10000 


5 500 


- 



PREPAREZ VOS PROGRAMMES 

ET ENVOVEZ LES NOUS LE PLUS 

RAPIDEMENT POSS I8LE , VOUS AVEZ TOUT 

JUSTE LE TEMPS : LE NUMERO 2 

PARAIT LE 21 OCTOBRE. 
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FONCTIONS SUPPLEMENTAIRES 



Nous vous presentons ici une famille de nouveltes fonctions CHAI- 
NES qu'il est possible d'impianter en langage machine et qui sont 
utilisables en BASIC. 

Ces fonctions, inspirees du langage LSE, permettent une program- 
mation plus souple pour la manipulation des chaines de caracteres. 
Avant de commencer 1'etude proprement dite de ces fonctions, 
nous allons rappeler certaines particulates de i'interpreteur 
BASIC de I'apple (toutes !es adresses sont en hexadecimal et prece- 
des du symbole $>. 

L'interpreteur est en memoire ROM. 

Pour pouvoir ajouter des fonctions a l'interpreteur, il faut le "pieger", 
car toutes ses tables et toutes ses routines sont en memoire morte 
et done non modifiables. Le concepteur de I'interpreteur a prevu 
une solution : le symbole & est reconnu (code $AF) et le sous-pro- 
gramme correspondant est a la charge de I'utilisateur (saut a 
1'adresse $3F5). 

Malheureusement, & est une instruction du type de "END" ou 
"GOTO" qui ne peut etre utilise dans une expression (combinaison 
de variables, fonctions et operateurs. qui peut etre evaluee : 
exemple5+3, COS(A>*2). 

Une seule routine de l'interpreteur est en memoire vive : CHARGET, 
qui est le sous- programme de recuperation d'un caractere. La solu- 
tion retenue est la suivante : toutes nos fonctions s'ecrivent 
"&NOMFONCTION"(ex.:&REP)etchargetestmodifiepourquenos 
routines soient actives uniquement lorsque l'interpreteur evalue 
une expression. 

La routine devaluation d'une expression ( commencant a 1'adresse 
$DD7B est composee de 2 parties : 

• Adresse $DD91 : analyse et execution des operations ; 

• Adresse $DE60 : analyse des constantes, variables et fonctions. 
Cette routine peut etre utilisee, moyennant certaines precautions, 
en langage machine ou en basic. 

Gestion des chaines de la memoire. 

Une chaine de caracteres est toujours representee par un groupe 
de trois octets successifs formant le descripteur dont le premier 
octet designe la longueur et les deux octets suivants contiennent 
I'adresse du premier caractere de la chaTne. 
Lors de I'execution d'une instruction traitant des chaines de carac- 
teres, e'est le descripteur qui est systematiquement utilise. II est 
stocke temporairement dans une zone de la page zero ($55 a $50) 
qui peut contenir trois descriptions differentes. Cette zone fonc- 
tionne comme une pile avec ses propres pointeurs ($52, $53). Au 
retour de revaluation d'une execution de chaine, le descripteur est 
copie dans $A0, $A1. 

Etude de cas : la fonctlon LEFT$ 

La syntaxe est : LEFT$ (VH, NU) ou CH represente une expression 
chaine et NU une expression numerique comprise entre et 255. 
Executer la fonction LEFT$ implique : 

ED la reconnaissance du mot LEFT$ 

: ? : la verification de la "(" 

® revaluation de I'expression chaine 

® la verification de la "," 

;&'■ revaluation de I'expression numerique 

© le traitement specifique a LEFT$ 

® la verification de la ")". 
Le traitement ® est realise pendant I'analyse lexicale (LEFT$ est 
codee $E8). 

• adresse $DF1A a $DF23 . . traitement© a©; 

• adresse $DF26 a $DF2F . . sauvegarde du descripteur ($A0, $A1 

utilise par la suite); 

• adresse $DF30 saut a la routine devaluation d'un 

entier; 

• adresse $DF34 recuperation du code de la fonction ; 

• adresse $DF38 sauvegarde du nombre entier; 

• adresse $DF3F traitement®, saut a la routine LEFTS 



Note sur les commandes de I'assembleur utilise (LISA) : 

• DCI engendre le code ASCII d'une chaine de caracteres, le dernier 
etant negatif ; 

• tt et \ devant une adresse donne respectivement le poids faible de 
I'adresse et le poids fort. 



INIT 


$9100 


ENTREE 


$91 4B 


FONC1 


$919D 


GLH 


$9352 


MCH 


$9208 


PCH 


$94BF 


PTR 


$93F5 


RbP 


$91DD 


SCH 


$944A 


SKP 


$938B 


SBR1 


$9554 


SBR2 


$957D 


SBR3 


$958D 


SBR4 


$95A0 



Le programme est implante a I'adresse $9100, il occupe un plusde 
1 K. II peut etre cree, soit avec un assembleur evolue type LISA, soit 
avec le mini-assembleur de I'APPLE. Quand le symbole "&" est uti- 
lise en dehors d'une expression, un message est imprime sur I'ecran 
et le controle est rendu au BASIC. Apres sauvegarde du programme 
assemble, I'execution est lancee avec la commande BRUN. 

PIERR1C GLAJEAN 




APPLE II 



; NUIIVI-I L ES FONCTIONS 



LEG FONCTIONS BCH ET GLR F 

UTILISEE3 (WEC UN PARAMETRE SUPLSMENTAIF 

QUI EST UNE VARIABLE NUMERIQUE. 

CETTE VARIABLE PREMD ALORS LA VALEUR DU 

DANS LA CNAfNf: CH DU DERNIER CBRfiCTfRf 

UTILISE PLUS 1, 

ESSAYEZ: PRINT GLR ( ' Al BC2DEF3 ' , 2 , X I , X 



SYNTAXE 


SiBLR<CH,NLI) 


ROLE 


ION 


EXTRAIRE DE LA CHAINE CH UN 
SOUB-CHAINE COMPOSEE UNIQUE 
DE LETTRES A PARTIR DE NU 


SYNTAXE 1 


S.SKP<CH,NU> 


ROLE 


- 2 


DONNER LA POSITION DANS CH 
DE LA PREMIERE LETTRE A 
PARTIR DU RANG NU 

DGNNER LA POSITION DANS CH 
PREMIER CARACTERE QUI NE SE 
TROUUE PAS DANS CH2. 



:ins complexes 



noN dans ch du 



5 LE 1ER GROUPE 



PRINT f, REP(B*,I> 

PRINT & REP(B*.l) + 

PRINT MID* I * REPII 

PRINT & REP( LEFT* I 



La fonction &REP. 

Nous sommes maintenant armes pour creer nos nouvelles 

fonctions. 

Elles possedent toutes au moins deux parametres (&REP (CH, NU) 

par exemple). Le listing de &REP, qui est commente, permet de 

suivre le mecanisme. Les autres fonctions sont construites sur le 

meme modele, voici quelques adresses utiles : 
$DEB8 verification de "(" 

$DEBB verification de ")" 

$DEBE verification de "," 

$DEC9 affiche "SYNTAX ERROR" 

$E199 affiche "ILLEGAL QUANTITY ERROR" 

$DD6C verifie que le resultat est bien une chaine 

$E3DD reservation de zone pour le stockage d'une chaine 

$E42A creation d'un descripteur 

$E5D4 transport d'une chaine 

$DFE3 routine gerant I'affectation 

$E6F8 evaluation d'une expression numerique < 255 

$E6B9 recuperation des parametres dans la pile. 



: : M1CH(CK,NU,NU1 OU CH2,CH7-) 
: REMPLACER UN MORCEAU DE Ct 
UNE AUTRE CHAINE 



A* = BONJOUR MONSIE 
PRINT & MCH(A*,9,B, ■ 
B*=' MADAME ■ 





N'EST PAS TROUVEE, LE 




RANG DU 1ER CARACTERE 




DE CH2 SI NON 


FONCTIDN 


<„SCH 


SYNTAXE 


kREF<CH,NU,NUl DU CH21 




EXTRACTION DUN MORCEAU D 




SEMBLARLE A MID* AVEC NU1 




DANS L'OPTION CH3.LE DERN 




CARACTERE DE LA CHAINE 




EXTRAITE EST LE CARACTERE 




QUI PRECEDE LE 1ER 




CARACTERE DE CH QUI SE 




TROUVE DANS CH2 



:s , ao CDL ONNES ' , 



Suite page 12 



VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS 

NOM: ■ MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: □ CHEQUE DCCP 



Suite de la page 11 



FONC.CHAINE BASIC 



. HIMEM EPZ S73 

■ BRANCH EPZ SCO 

1 BRONCHI EPZ SCI 

t TRAV EPZ *C2 



i INITIALISE ADRESSE 
;BRANCHEMENT NORMAL 
;DE & <S3F5> 



STA S3F6 
LDA /MESSAGE 
STA S3F7 

IE LA ROUTINE CHARBET 

LDA #S4C 
STA SBA 
LDA tENTREE 
STA »BB 
LDA /ENTREE 
STA SBC 



5 CLC 

1 ADC #3 

5 STA SBB 

) BCC FONC1 

' INC SB9 

? ; 

' ; EVALUATION DES 2 PREMIERS 

i ! ARGUMENTS DE LA FONCTION 

. ; PUIS SAUT A LA ROUTINE 

! ; DE LA FONCTION. 

> FDNC1: 

I LDA TRAV 

1 ASL 

JSR SDEBB 

1 JSR SDD7B 

> JSR SDEBE 
I JSR SDD6C 

PLA 



& 



50 MESSAGE: 



JSR SDAFB 
LBV #0 

LDA MES5.V 
BEG RETOUR 
JSR SFDED 



sa RtiuiiR 



61 MESS:ASC "S.!,S. FQNuTIONS CHAINES 



IVELLE ROUTINE ( 




284 


STY S5F 


43 B 


283 


JSR SE633 


439 




LDY #S00 


440 


2B7 


LDA (S5EJ.Y 


4H1 


2B8 


STA SAO 


442 


289 


1NY 


443 ; 


290 


LDA (*5E),» 


444 ! 


291 


STA *A1 


445 j 




I NY 


446 ; 


293 


LDA (*5E),Y 


447 : 


294 


STA SA2 


443 ; 


295 MCH4A 


LDA *0A 


449 5 




SEC 


450 ; 


297 
298 


SBC SOE 


451 I 

452 ; 


299 


ADC SAO 


453 ; 


300 


BC5 MCHERR 


454 S 


301 


JSR SE3DD 


455 


302 


LDA SCO 


456 


i'.03 


BED MCH4 


457 


304 


LDX SOB 


45B 


305 


LDY SOC 


459 




JSR SE5E2 


460 


307 MCH4 


LDA SAO 


461 


30S 


BEQ MCH5 


462 



Oo 



SBC #*30 

SEC 

SBC H*DO 



ON A RENCONTRE LE CODE I: 
MAIS IL Y A BRANCHEMENT 
UNIDUEMENT SI ON EST EN 
COURS DEVALUATION D LINE 
EXPRESSION iSDE66 DANS 
LA PILE) .SINON. IGNORER 
LE 3YMB0LE Si. 



JSR *E6B9 iRECUPERATION DE CH ET I 
LDA !S8C> ,Yj (Y=0) RECUPERE ET 
STA *Ofl ; 5AUVE LONGUEUR DE CH 

DEX , CALCULE NU FGJS 



LIBERE DESC SI NECESSAIRE 
TRANSPORTE NU FOIS 
LA CHAINE CH 
DANS LA ZONE RE5ERVEE 



■HNt ret-: 



! E'= SFSrrviPTFUF-. i 



STA 


TRAV 


CMP 


#S66 


BNE 




PLA 




CMP 


#*DE 


BEQ 


EXEC 


PHA 




LDA 


TRAV 







o 



FONGT I ON 
MCH 



LDA «SAF 







UTE LE CODE !. 



234 
235 
236 
237 
23B 



,<P 



IMC SB8 
BNE ANALEX 
INC SB9 

ANALYSE DU MOT SUIVANT 
LE &. SI MOT RECONNU, 
TRAV CDNTIENT SON NUMERO 
SINON 'SYNTAX ERROR 1 





LDA 


tt*0 




STA 


TRAV 




LDX 


#SFF 


ANALEX I 


LDY 


*SFF 


ANALEX3 


1NX 





LDA 


SBC 




SBD 


JSR 


if '.-35 


jat* 


SDD7B 


JSR 


SDEBE 


BIT 




BPL 


MCHO 


JMP 


MCHCH 


JSR 


IE IOC 


LDA 


SAO 


BED 


MCH1 


JMP 




LDA 


SA1 


JSR 


SDB7B 



INK 


590 






JSR SE10C 


STA S5E 


591 






LDA *AS 


STX S5F 


592 






BEG SCH1A 


TYA 




SCHERR 


JMF' SE199 


JSR SE5E6 


594 


SCH 


A 


LDY SA1 


JSR ENTEX 


593 






BED SCHERR 


JMP SE42A 


596 

597 
598 






STY SOE 
STA SOD 


******* 


599 






PLA 



JSR 


SSR 






PHA 




LDA 


*se 


1 DY 


*RD 


JSR 




1 l)V 


ttO 


LDA 


(SB 



312 


MCH5 


LDA 


*0A 


466 


JSR 


SBR2 


313 




SEC 




467 


JMP 


RET 






SBC 




468 SKP10 


JSR 


SDEBE 


313 




BEQ 


MCH 7 


469 


LDA 


*0A 


316 




PHA 




470 


PHA 




317 




LDY 


*0C 


471 


LDA 




31B 




LDA 


SOB 


472 


PHA 




319 




CLC 




473 


LDA 




320 




ADC 


*16 


474 


PHA 




321 




sec 


MCH6 


475 


JSR 


SDD7B 






INY 




476 


BIT 


Sll 


323 


MCH6 


TAX 




477 


Riii 


SKPU 






PLA 






JMP 


SDD76 


325 




JSR 


SE5E2 


479 SKF11 










JMP 


SE42A 




STA 


SOC 


327 


MCHCH 


LDA 


SAO 


481 


PLA 








LDY 


SA1 


482 


STA 


SOB 






STA 


S5E 


483 


FLA 




330 




STV 




484 


STA 


40A 


331 




JSR 


SE635 


4S5 


JSR 


IE 6 00 


332 




LDY 




486 


STfl 


•OB 


333 




LDA 


<*5E1 ,Y 


4B7 


PLA 





S25 SCHCH: 



CLC 

ADC SOD 
STA SO A 



JSR SE3DE) 

LDA SBC 

LDY *8D 

JSR SE604 



JSR SE6O0 
STA *C0 
PLA 
STA SOD 

PLA 
STA SOC 

PLA 

STA SOB 
PLA 
STA SO A 

JSR SBR4 






-RECUPERATION DES PARAMETRES 



738 | 

759 ; 

760 SBR1 



SUliSPRGG 



490 SKP12 



CLC 
SBC •- 
PHA 



CMP 1S5E) 



33=? 


LDA 


(*5£) ,Y 


493 






PHA 




494 




341 


JSR 


*DD7B 


495 




342 


JSR 


*DEBS 


496 




343 


BIT 


#11 






344 


BMI 


MCHCH 1 


49S 






JMP 


*DD76 


499 




346 MCHC 


HI JSR 


SEfcOO 






347 


STA 




501 




348 


STX 


*A1 


502 




349 


STY 


*A2 


503 




350 


PLA 






RET 


351 


STA 


*5F 


505 


RET 


352 


PLA 




506 




■~S3 


STA 


*SE 


507 




334 


PLA 




508 




355 


STA 


SOD 


50? 


j 



647 
648 
649 
650 



655 i 

656 i 

657 : 
65B ; 

659 ; 

660 P 



PLA 

STA *0A 

PLA 

STA *0B 

JSR *E6BC 

LDA SOB 

PHA 



CMP (SBC) 

BEQ SBRO 

BCC SBRO 

JMP *E199 

LDA (SBC! 



STA i 



.362 




PLA 




363 




STA 


SCO 


364 




TAY 




365 




JSR 


5BR4 


366 




BTY 


S16 


367 




TYA 




368 




SEC 




369 




SBC 


SCO 


370 






SOE 


371 




JMP 


I-ICM4A 


372 








373 








375 


ENTEX. 


LDA 


#*29 


376 




LDY 


#*00 


377 




CMP 




37S 




BNE 


CNB5 






JMP 


SB1 


380 


CNB5 


JSR 


tDLUI- 


391 




LDY 


tt$06 


3B2 


CNB6 


LDA 


S009C 


383 




STA 


SO 1 00 


3B4 




DEY 




365 




BNE 


CNBfc 






JSR 


*Df-"E3 






STA 


SB5 


388 




STY 


SB6 


389 




BIT 


Sll 


390 




BPL 


CNB7 


392 


CNB7 


LDY 


SOA 


393 




JSR 


SE30I 






JSR 


SEEH27 


395 




LDY 




396 


CNBB 


LDA 


so i oo 



JSR SEt,04 



LDY 


SBD 


798 




BCC SJEik 


JSR 


SE635 


799 






JSR 


SDD7B 


800 




CPY *0A 


BIT 


Sll 


801 




BNE SE"H 


BMI 


BUI 


B02 


5 BR ",j 2 


RTS 


JMP 


SDD76 


BO 3 






J5R 


SE600 


BOS 


;.*.** 


.., «.«**.* 


STA 


SOE 


BO 6 


t* 





SCillEPROG 
SBR3 



RECHERCHE UN SVKBOLE 

DIFFERENT D'UK LETTRE 

5BR3 LDX #SOi 



cmp #seo 

BEG! TROUVE 
INC TRAV 
L DA TRAV 



ODL IRAV 



BPL ANALEX2 



JMP SDD76 

PLA 

STA SOE 

STA tOC 

STA Sijti 



STA J 
CLC 
ADC i 
BC5 r 



) I NT EUR DE 
lUTE LES 
I NOM DE 




JSR SDD7B 



JMP SDD76 



J?v; tEbOO 



BNE PTR1 
JSR SBR4 
JMP RET 



BCC 


IMPO 


LDA 


SOA 


SEC 




SBC 


SOD 


CMP 


SOE 


BCC 


IMPO 


LDY 


no 


LDA 


(*5E 


STA 


S9D 



* FONCTK 

* SCH 



VERIF1E LB PKE5ENCE Q 

DAU5 LA CHAISE CML' 
SBR4 STV Sol 



STY SOE 
CF, SOS 
BNE 5BR4: 



i^R (iJLLJE 



863 


ADR I1CH 


864 


ADR PCH 


86S 


ADR PTR 


866 


ADR REF 


B67 


ADR SCH 


B6B 


ADR SKP 



Un superbe programme graphique en 3 dimensions oil il faut et;e le premier a aligner quatre anneaux sur seize 

piquets. 

Toutes les dimensions sont bonnes : verticale, horizontal, diagonale plate ou inclinee (basic simple). 



TI-99/4A 



PLR$(2] 



100 CALL CLEAR 

110 OPTION BASE 1 

120 DIM S(4,4,4),PLR$[2),KEY(2) 

130 CALL CHAR(143,"3C?EFFFFFFFF7E3C") 

140 CALL CHAR( 144,") 

150 CALL CHAR(14S."3C7EFFFFFFFF7E3C") 

160 CALL CHAR(96,"18181818181B1818") 

170 CALL C0L0R(9.2,11) 

180 CALL C0L0R(14,16,11) 

190 CALL C0L0R(15,7,11) 

200 CALL CHAR[97,"7E7E") 

210 CALL CHAR(98,"183060FFFF603018") 

220 GOSUB 2980 

230 PRINT TAB(12);"SC0RE 4" : : " UN JEU POUR JOUER A DEUX": 

240 PRINT " INSTRUCTIONS (O/lO?*:: 

250 G0S1IB 3020 

260 CALL KEY[0,K, STATUS) 

270 IF STATUS-0 THEN 260 

280 CALL CLEAR 

290 IF K=78 THEN 310 

300 GOSUB 2200 

310 INPUT "NOM Oil JOUEUR ROUGE 

320 IF LEN(PLR$(2))<=10 THEN 350 

330 PRINT ::;"10 LLTlHt MAXIMUM. SVC" 

340 GOTO 310 

350 INPUT "NOM DU JOUEUR BLANC 

360 IF LEN(PLR$(l):<-:0 THEN 390 

370 PRINT :::"10 LFITMES MAXIMUM, iVP 1 

380 GOTO 350 

390 PRINT "QUI JOUE EN PREMIER ?"::" 

400 CALL SOUND] 120, 1400, 3 J 

410 CALL KEV[0,KEV1, STATUS] 

420 IF STATUS=0 THEN 410 

430 IF KEY1=82 THEN 460 

440 IF KEY 1=66 THEN 450 ELSE 390 

450 K£Yi=B7 

460 GOSUB 1130 

470 FOR 1=1 TO 4 

480 FOR J-l TO 4 

490 FOR K=l TO 4 

500 S(I,J,K)=0 

510 NEXT K 

520 NEXT J 

530 NEXT I 

540 Z=(-1)"KEY1 

550 FIRST=INT(Z/2+2) 

560 WIN=D 

570 ERR0R=0 

580 FOR 1-1 TO LEN(PLRi(FIRST)) 

590 CALL HCHAR(5,17-M,ASC(SEGJ(PLHJ(FIR5T).],1))) 

600 NEXT I 

610 CALL HCHAR(7,19,45,2) 

620 CALL SOUND(200.220*F1R5T,0,440*FIRST,0) 

630 FOR 1*1 TO 2 

640 CALL KEY(0,KEY(I), STATUS] 

650 IF STATU5=0 THEN 640 

660 IF 1=2 THEN 700 



- BLANC 



ATTENTION ! 

POUR VOUS PERMETTRE DE 

NOUS ENVOYER VOS 
PROGRAMMES, LE NUMERO 2 
D'HEBDOGICIEL HE SERA EN 
VENTE QUE LE 21 OCTOBRE. 



670 IF KEY(1)<65 THEN 640 

680 IF KEY(1)>68 THEN 640 

690 GOTO 720 

700 IF KEY(2)<49 THEN 640 

710 IF KEY(2)>52 THEN 640 

720 CALL HCHAR(7,18+I,KEY(1)) 

730 NEXT I 

740 FOR 1=1 TO 5 

750 CALL HCHAR(B,17+I.ASC(5EG$("0KAY?'M,1))) 

760 CALL HCHAR(9,17+1.ASC(SEGH"0 - N".l,l))) 

770 NEXT I 

780 CALL 5DUND(100, 1000,0) 

790 CALL KEY(0,K,STAUI5) 

800 IF STATUS-0 THEN 790 

810 FOR 1=5 TO 9 

820 CALL HCHAR(1,18,32,10) 

830 NEXT 1 

840 IF K079 THEN 560 

850 GOSUB 2680 

860 IF ERRORXI THEN 560 

870 GOSUB 1360 

880 IF HIN>0 THEN 930 

890 Z-Z 

900 GOTO 650 

910 CALL CLEAR 

920 GOSUB 2980 

930 PRINT PLR$(FIR5T);" A GAGNE" : 

940 GOSUB 3020 

950 CALL KEY(0,K, STATUS) 
: 960 IF STATUS=0 THEN 950 

970 REM 

980 IF K=78 THEN 1110 

990 IF K=79 THEN 1030 

1000 GOTO 930 

1010 CALL CLEAR 

1020 GOSUB 2980 

1030 PRINT "LES JOUEURS S0NT-IL5 

1040 G05UB 3020 

1050 CALL KEY (0,K, STATUS) 

1060 IF STATUS=D THEN 1050 

1070 CALL CLEAR 

1080 IF K=78 THEN 310 

1090 IF K=79 THEN 390 

1100 GOTO 1030 

1110 END 



1240 NEXT I 

1250 REM =s«=«=.=«.=. — ,===.=, 

1260 REM NOTATION DES COORDONNEES 

1270 REM la**™-*™™™™™™™ 

1280 FOR [=1 TO 4 

1290 CALL HCHAR(1, 3*1, 48+1) 

13O0 CALL HCHAR( 23, 3*1+3, 48+1) 

1310 CALL HCHAR(5*1-1,2.64+I) 

1320 CALL HCHAR( 5*1-1, 16,64+1) 

1330 NEXT I 

1340 RETURN 



Suite page 14 




VOULEZ-VOUS REJOUER(0/N|? 



) REM 



1130 REM DESS1N OU TABLEAU 



1 REM 



1150 CALL CLEAR 

1160 FOR 1=1 TO 23 

1170 CALL HCHAR(I,2,144,15) 

1180 NEXT 1 

1190 FOR 1-1 TO 4 

1200 FOR J=l TO 4 

1210 CALL VCHAR(5*J-2,3*1-1+J,96 

1220 CALL VCHAR(5*J+2,3*I-1+J,97 

1230 NEXT J 



1350 REM —"«- — "..« — 

1360 REM TESTS DE VALIDITE 
1370 REM =================== 

1380 FOR 1=1 TO 4 

1390 FOR J=l TO 4 

1400 FOR K=l TO 4 

1410 IF 5(I,J,K)<>144+Z THEN 

1420 NEXT K 

1430 GOTO 2160 

1440 NEXT J 

1450 NEXT I 

1460 FOR 1=1 TO 4 

1470 FOR J=l TO 4 



1 FOR K 



TO 4 



1490 IF S(1,K.J)<; 
1500 NEXT K 
1510 GOTO 2160 
1520 NEXT J 
1530 NEXT 1 
1540 FOR 1=1 TO 4 
1550 FOR J-l TO 4 
1560 FOR K=l TO 4 



144+Z THEN 1520 



570 IF 5(K,I,J)C>144+Z THEN 1600 

680 NEXT K 

590 GOTO 2160 

600 NEXT J 

610 NEXT 1 

620 FOR 1=1 TO 4 

630 FOR J=l TO 4 

640 REM 

650 IF S[I.J,J)ol44+Z THEN 1680 

660 NEXT J 

670 GOTO 2160 

NEXT I 
690 FOR 1=1 TU 4 
700 FOR J-l TO 4 

10 IF S(I,J,5-J)<H44+Z THEN 1740 

20 NEXT J 

30 GOTO 2160 

40 NEXT I 

50 FDR 1=1 TO 4 

60 FOR J=l TO 4 

70 IF S[J,I,J)ol44+Z THEN 1800 

8D NEXT J 



Les nouveaux logiciels TEXAS INSTRUMENTS 
Tl 99/4A sont arrives ! 



Pas moins d'une vingtaine de 
nouveautes c h e z Texas des 

logiciels de jeux, des logiciels 
e"ducatifs, des utilitaires et, 
en plus de nouveaux livres et 
des accessoires attend u s ... . 
. La bibliotheque de logiciels 
du TI 99/4A est de*cidement de 
plus en plus impressi onante ! 
. Disponibles des a present chez 
les distributeurs Texas 
Instruments et editees par VIFI 
INTERNATIONAL, deux cassettes 
d'environ 100 francs : 
COMPLEMENTS ET MULTIPLES 
cassette educative s'adressant a 
un, deux ou trois enfants, avec 
trois niveaux de difficulte*s et 
comportant deux jeux. Le 
principe du jeu COMPLEMENT 
consiste a assort ir deux cartes 
comp 1 e'men t a i re s dont la somme, 
selon le niveau choisi, est 
e'gale a 50, 100 ou 1000. Dans le 
jeu MULTIPLES, il s'agit de 
reconnaitre deux cartes 
multiples, 1'une et 1 'autre qui 
do i vent etre double, triple ou 
quadruple selon le degre de 
difficult e'. Ces deux jeux 
permettent de se familiariser 
avec ces notions importan tes 
tout en s'amusant.Et MES 
PREMIERS HOTS CROISES, cassette 
adaptee a 1'er, fart qui lui 
permet de realiser des exercises 
de vocabulaire. Pour les mots 
difficiles, 1'enfant peut faire 
appel 5 une deuxieme 
d e f i n i t i on . Le controle du mot 
tape' dans la grille s'effectue 
lettre par lettre ce qui 
constitue une bonne aide 
o r t hog ra ph i que. Cette cassette, 
bi en entendu en franca is, 
comporte e*galement un programme 
pour construire ses propres mots 
croi ses. 



. Pour environ 100 francs 
e"galement, trois cassettes 
educatives editees par HAGNARD: 
PONCTUATION, qui e'vite 
l'impression deplorable 1 a i s see 
par une copie ou une lettre 
maladroitement ponctue'e. Ce 
"studiciel" remet a leur juste 
place tous ces pet its signes 
:"!,?,...:,;,." dont le bon 
usaqe est essentiel a la clarte 
et I la force de tout message. NE 
CONFONDEZ PAS permet de 
distinguer "peux" de "peut" et 
d e " p e u " o u "son" d e "sont" o u 
encore "leur" de " leurs" ,etc... 
Ce "studiciel" apprend a lever 
toutes ces ambiguites sources de 
grossieres fautes d ' o r t hog r a p he 
et conduit a une meilleure 
maitrise de la langue ecrite. 
DIVISEUR, PGCD, PPCH aide a 
l'apprentissage des 
mathe'matiques ou PGCD et PPCM 
sont deux verrous qu'il faut 
faire sauter.Dans ce "studiciel" 
les nombres deviennent vivants 
et le succes facilite par la 
dynamique du travail avec 
1 ' ordi na teur . De nombreux autres 
logiciels a venir chez cet 
editeur.notamment mathematiques, 
gramma ire et FONCTIONS 
GRAPHIQUES. 

. Co-edites parTEXAS INSTRUMENTS 
et COLLINS EDUCATIONAL six 
cassettes arrivent d'ici a la 
fin de 1'annee : quatre 
cassettes accompagne'es d'un 
livre sur les techniques de 
programmation du Tl 99/4A: 
INTRODUCTION AU TI 99/4A volume 
1 et 2 , TECHNIQUES DES 
PROGRAMMES DE JEU niveau 1 et 2, 
INTRODUCTION AUX ECHECS et 
TECHNIQUES DE GESTION DE 
DONNEES.(prix probable environ 
140 francs). 



. Dans les modules enfichables, du volume et de la tonal ite est 

les nouveautes sont egalement disponible aux alentours de 500 

tres nombreuses : TI-LOGO 2 dont francs ainsi que le MODULATEUR 

la version francaise a ete SECAM adaptable sur tout les 

developpe'e en collaboration avec televiseurs f ranca i s . (600 francs 

des professeurs des universite's environ). 

Paris VI et Paris VII est . Du cote de la librairie, LA 

disponible dans les jours qui PRATIQUE DE L'ORDINATEUR 

viennent. Ce langage, plus FAMILIAL TI 99/4A, NIVEAU 2 est 

speci al emertt destine au enfants, parue aux editions RADIO, le 

permet de faire comprendre la TOME 2 des JEUX ET PROGRAMMES 

philosophic informatique tout en POUR L'ORDINATEUR FAMILIAL TI 

laissant a I'utilisateur la 99/4A ainsi que le LANGAGE 

maftrise de 1 ' ordi na teur . II est ASSEMBLEUR DU TI 99/4A avec le 

base" sur le principe module MIN1-ME MOIRE aux e'ditions 

philosophique d'e'ducation SHIFT. Enfin, le manuel du BASIC 

(level oppe par SEYMOUR- PAPERT et ETENDU est disponible en 

l'equipe du laboratoi re de franca is. 

1 'intelligence artificielle du • Et d'autres nouveautes sont 

MIT qui cre"e un e n v i ron n erne n t encore annonce'es d'ici les fetes 

informatique dans lequel les de fin d'anne'e ! 

mathe'matiques et d'autres (*) SCRABBLE est une marque 

disciplines d'enseignement de*pose'e 

formel peuvent etre apprises 

d'une manure naturelle. Ce 

sont, en fait, les utilisateurs 

qui enseignent a 1'ordinateur la 

maniere de proceder. Par rapport A VOS CLAVIERS ! 

au TI-LOGO, TI-LOGO 2 dispose de 

capacites musicales, de lutins 

plus grands ainsi que d'une VOUS POUVEZ OBTENIR UNE 

capacite' me'moire utilisateur DOCUMENTATION SUR LES PROGRAMMES 

double (16 k). TI-LOGO 2 ne'ces- TEXAS INSTRUMENTS EN DECOUPANT 

site 1'extension me'moire 32 k. LE BON CI-DESSOUS. 

D'autres cartouches avant la fin 

de 1'annee : BUDGET FAMILIAL en 

francais, co-e'dite' par le GROUPE Norn : 

EXPANSION et Christiane COLLANGE Pre'nom : 

TI-CALC, feuille de calcul Adresse : 

co-e'di te'e par BOND ASSOCIATED , 

LIMITED egalement en francais 

SCKABBLE( * } , co-e'dite* par LITTLE Je possede un o r d i "n'a" t'e'u r 

GENIUS LIMITED et comportant un familial TI 99/4A ouiD non □ 

dictionnaire de plus de 10.000 

mots '■ Bon a renvoyer a : 

Le MAGNETOPHONE A CASSETTE TEXAS TEXAS INSTRUMENTS FRANCE. 

INSTRUMENTS avec cable de B.P 67. 

liaison incorpore* et pre*reqlacje 78 141 . VEL I ZY- V I LLACOUBLAY CEDEX 



1790 GOTO 2160 
1800 NEXT I 
1810 FOR 1-1 TO 4 
1820 FOR J=l TO A 

1830 IF S(J,I,5-J)<>144+Z THEN 1860 
1840 NEXT J 
1B50 GOTO 2160 
1860 NEXT 1 
1870 FOR 1=1 TO 4 
1880 FOR J=0 TO 3 

1890 IF S(J+1,J+1,I)<>144+Z THEN 19Z0 
1900 NEXT J 
1910 GOTO 2160 
1920 NEXT 1 
1930 FOR 1=1 TO 4 
1940 FOR J=0 TO 3 

1950 IF S(4-J,J+1,I)<>144+Z THEN 1980 
1960 NEXT J 
1970 GOTO 2160 
1980 NEXT I 
1990 FOR 1=1 TO 4 
2000 IF S(I,I,I)<>144+Z THEN 2030 
Suite de ta page 13 



2010 NEXT 1 

2020 GOTO 2160 

2030 FOR 1=1 TO 4 

2040 IF S(I,I,5-I)<>144+Z THEN 2070 

2060 NEXT I 

2060 GOTO 2160 

2070 FOR 1=1 TO 4 

2080 IF S(5-I,I,1)<>144+Z THEN 2110 

2090 NEXT I 

2100 GOTO 2160 

2110 FOR 1=1 TO 4 

2120 IF S(6-1,I,5-I)<>144+Z THEN 2170 

2130 NEXT 1 

2140 GOTO 2160 

2150 REM 

2160 UIN-1 

2170 RETURN 

2180 RETURN 

2190 REN === ===.. = .== = . = «....= = = ===== 

2200 REM INSTRUCTIONS 

2210 REM ============================ 

2220 CALL CLEAR 



2230 GOSUB 2980 

2240 PRINT "ROUGE ET BLANC JOUENT TOOR ATOOR. ILS PLACENT DES ANNEAUX SUR 

LES PIQUETS EN" 

2250 PRINT "ESSAYANT D'EN ALIGNER QOATRE" : :"UNE L1GNE PEOT ETRE HORIZON-TALE, VE 
RTICALE OU EN D1AG0-NALE": : 

2260 PRINT "FA1TES 'ENTER' POUR VOIR 4 EXEMPLES DANS LESQUELS LE JOUEUR ROUGE 
GAGNE." 

2270 GOSOB 3020 
2280 CALL KEY(0,K,ST) 
2290 IF ST=0 THEN 2280 
2300 FOR K=l TO 4 
2310 CALL CLEAR 
2320 GOSOB 1130 

2330 ON K GOTO 2340,2410,2490,2660 
2340 FOR J-l TO 4 
2350 CALL HCHAR(5*J+l,3*J-ltJ,145) 
2360 CALL HCHAR(5*J+1,4*J,98) 
2370 NEXT J 

2380 CALL »CHAR(b,12,143,2) 
2390 CALL VCHAR( 15,5,143,2) 
2400 GOTO 2640 
2410 FOR J=l TO 4 Suite page 20 



Ti-99 4/A 



PREPAREZ VOS PROGRAMMES 

ET ENVOYEZ LES NOUS LE PLUS 

RAP1DEMENT POSS I BLE , VOUS AVEZ TOUT 

JUSTE LE TEMPS : LE NUMERO 2 

PARAIT LE 21 OCTOBRE. 
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Instruments ^j» 



CHOISISSEZ LE PROGRAMME 
TI99/4A 

tarffcau 16/9/1983 

D Je command* les loglcMi eu products lulvants 

G Je desire wulement una documentation sans engagement de ma part 



La Regie a. Cafcul 
65/67 Bd St Germain 75005 Paris 
Tel. : 325.68.88. Telex 220064F 
FTRAV/1303 RAC 



BON DE COMMANDE 



Participation aux frals de port + 15 F. 

Cl-Joint mon reglement par : CCPD CB □ Mandat □ 









Prix 










Prix 










Prix 










Prix 


n*Mr«ncet 


Designation 


Prix H.T. 


T.T.C 


Rtfirencei 


Detonation 


Prix H.T. 


T.T.C 


Referancai 


Designation 


Prix H.T. 


T.T.C 


References 


Designation 


Prix H.T. 


T.T.C 


Comolei 








PHM 3020 




Music Maker Initiation et 






PHM 303 1 


10 




240,30 


285,00 












a« Kctnolm 












perfectionnement au solfege 


307,76 


365.00 


PHM 3032 


13 


Blasto cumtiat de chars 


240,30 


285,00 


logician 










PHC 


Ordinareur familial Tl 99/4 






PHM 




















Modules : 










004ARGB/FK 








3027/US 










3033/U5 


12 


Black-jack : poker, en anglais 


240.30 


285.00 


PHM 














1475.55 


1 750.00 








307 76 


365.00 


PHM 3034 


20 


Hustle", jeux de poursuite 


188.03 


223.00 


3010/US 




Gymnastique. en anglais 


193.88 




PHA2036 
PHA2I01 


MMulritrur PAL-UHF 
Modulaleur SECAM adaptable 


626,48 


743.00 


PHM 
3028/US 


2 


MtomHtMnomr. 






PHM 3037 
PHM 3038 


19 


Hangman^' ,eu du pendu 


240,30 
240,30 


285.00 
285.00 


PHM 3011 


45 


Speech editor necessite 
le PHP 1 SOD. en anglais 




28100 






503.37 


597.00 








307.76 


365,00 


PHM 3039 


30 




307,76 




PHM 








PHA2601/FR 


Manuel Tl 99/4A 


45.53 


54.00 












PHM 










3014/US 


54 




497.4 7 




PHA 2606 


Disquettesvierges5-|/4il0l 


364,25 


432.00 


3029/US 


'■ 


Multiplication I*, en anglais 


307,76 


365.00 


3042/15 


26 












Extended-Basic 


801.01 


950.00 


PHA2612/U5 


M,ir.ut-i Assembleur 


212,48 


252.00 


PHM 3114 






307,76 


365.00 








240.30 


285,00 






Terminal emulator II petmet 
rie a.iiiimi iiiir)! ici par lelepricuTf 






PHA 2622 


Cable de liaison 




IW 


PHM 3114 


58 


DLM 1 Crocodile savant. 


».,, 


* M|H 


PHM 3052 


? r ; 


Tcnitrai-inc t;ry tar-west 
i)ii KXr*«*rle 


HM. 












phpi500 


V'ih^mm''<l. l 'rl' 1 -,.lr' 










Ml IMF <,' "" 




'MM... 






■.,..<■'■ 


'■III 10 


'"' 






i,'"'HI'V.illl|.,.ii,.'l.ti''' V " 








SmInI Sure SjwFch TM" 


591.91 


702,00 


PHM 3116 


,,!.: 




























PHP 2 700 


Mjg.'iL'tt.ipliolie cassette 
TV A 33.33*0 


372.01 


496,00 


PHM 3117 


61 


DLM 4 Dragon savant. 
en francais 


240.30 
240,30 


285.00 


PHM 3057 


n 


PHP 1 500 

Munchman :jeu du glouton 


307, /6 
307,76 


365.00 
365,00 


PHM 3055 
PHM 3058 


50 


Mini-memnire, permet de 


V/,7, 


,K 


ParlpMrlqiiai 








PHM 3 118 


62 


DLM 5 Mission moms. 


240.30 


285.00 


PHM U-(-..' 


23 
15 


Othello" 
Chishoim trail 


307.76 
307.76 


365.00 
365.00 






<n.ces '.iiiiplilip au Ian gage 






penpnpnques 








PHM 31 19 


63 


DIM 6 Meteor multiplication. 






PHM 3112 


24 


Parsec . utilisation possible du 






























240.30 


285,00 






PHP 1 500 


307.76 


365.00 










9^0,00 


*tant,ntegres 
ttensfesysttme 








Cassette- : 




Le basic etendu par soi-meme. 






PHM 3036 


ii 


Zero-zapp" : Te>as-flipper 


240.30 


285.00 


Disquenes 

PHD 










d'expansion 








6019/FR 


48 


en francais necessite le module 










Jeux retro 1 : 4jeu« biorythme. 






5006/FR 




Msthematiques. en francais 


307,76 


365,00 


peripnprique 












PHM 3026 


E2.63 


9B.00 


60 1 5/FR 


16 








PHD 5063 


06 


PASCAl-UCSD Compiler : 






PHP 1200 












Le Basic par soi-meme, 










en franca is 


82.63 


98.00 






PHP 1260 et PHP 1270 






PHP 1200 


■iy'jieirst? d extension 












82.63 


98.00 


















954.4 7 


1 132,00 


PHP 1220 


Ca rre inte rf ace FJS 2 3 2 une 


834,74 


990.00 


Legiciak 
fwnenmi 










60 1 7/FR 

sene 


37 


Jen. rem, II 4jeu< en ftantais 


S2.63 


98.00 


PHD 5064 


07 


UCSD-System Assembler/linker : 
PHP 1260 et PHP 1270 








sortie parallele el une some 






■ 








ADVENTURE 


[.'utilisation des cassettes 












733.56 


870.00 










Modules I 




















PHC 5065 


08 


UCSD-P -System Editor/files/ 








livree avec module d application 


1349,07 


1 600,00 


PHM 
3013/DF 


53 


au disqiJPCtPS recommandees 
pour sioc her les donnees. 






PHM 
304 1 T/U5 


, 


le module PHM 304IT/US 
ADVENTURE module 


82.63 


■9B.00 


PHM 3113 


„ 


utilities . PHP I260et 

PHP1270necessaires 
Multiplan 


853,29 


695,00 
1 012,00 


PHP 1250 


Unite integreededisquette 
simple Face/simple densite 
5" 1/4 


1812,87 


2150.00 


3044/DFIS 


52 


Gesuari de rapports cassettes 

ou disqueties el impnmante 


497.47 


590,00 






Adventure livre avec la cassette 
PIRATE ADVENTURE, 


307.76 


365.00 


5005/FR 
PHD 


01 


Aidealaprogrammationll 


193,88 


229,00 


PHP 1260 


Carte d'extension mev |RAM| 
32Koc 














590,00 












5008/FR 


03 


Electric up 


307.76 


365.00 




834.74 


990,00 












6046/US 


32 




i9J .a a 


229.00 


PHP 












Cane P-Code : permet 






5001/FR 






586.00 


695.00 












5012/FR 


04 


Aide $ la program.mation III 




229.00 


















604 7/1 Ji 


35 








PHD 














1854,97 


2200.00 






















50 1 6/FR 


05 


Resrstaricedesmateriau« 


30776 


365.00 


PHP 1 850 


Unite de disquette extern e 


3 499,16 


4 1 50.00 


6003/FR 


56 


Conseil Financier, en francais 


82.63 


98.00 


604B/U5 


43 


Voodoo Castle 


193.88 


229.00 


PHM 3 1 09 




Ti Logo 2 


B53.29 


1012,00 


Logician 








Logician 

Modules : 

PHM 
3018/EFG 










6049/US 


42 


The count 


193.88 


729.00 


phi""" : 




Aide a la program-nation 1, 
































6004/FR 


46 




82,63 


98,00 


Modules : 
3002/US 7 


Preschool, early learning Tun. 
en anglais 


1 88.03 


223,00 


27 


Jeu« video 1 3jeuxdadresse 




223.X 


605U.-:.l r , 
6051 /US 


57 


Strange Odyssey 


193.88 


229.00 
229.00 


6018/FH 


« 


— — 


82.63 


98.00 


3O03/LT5 5 


Beginning grammar, en anglais 
Magie des nombres : en francais 


188^03 


223.00 
223,00 


3023/EFG 


29 


Chasse au Wumpus, en Irancais 


240.30 


285,00 


6052/U5 


39 


Pyramid 0. Doom 


193.88 


279.00 










PHM 3004 6 










PHM 


Echecs : apprentissage etjeux 








18 








6053/U5 


33 


Ghost Town 




229.00 










3008/FR 1 7 


en Francais 


395.45 


469.00 


3025/FFG 




Jeu* video II 2jeui cierellemon 


188 03 


223 00 


PHT 










-Developpe par Scon FORESMAN 






PHM 
















6054/US 










"DevPloppe par Milton BRADLEY 






3015/US 4 


Early reading- necessite 






PHM 3030 


9 


A-MAZE-IIMG 


240.30 


285.00 


PHT 
6056/US 






^3.88 


229.00 



























' program COURSE 




! var 




INTEGER X,X1,D,T,K 




REAL V 




DIM D*C19: 




! init 




DELAY Ci 




WIDTH INF 




RANDOMIZE 




00 D*=CHR*<27> VE"!<CHR*(27) 




io xi=i2 e x=i5 i? v=i.s e d 


-o 


20 DISP " 1 X 




30 IF KEY*#" " THEN 130 




40 T=TIME 




50 ! 




fcO ON TIMER # l.V X1=MAX(0. 


INC 


70 D*C5.5]=CHR*(X1) l? D*[li> 


16: 


BO DISP D*; 




90 IF X<=X1 OR X>=Xl+6 THEN 


250 


00 K=POS("Z/~+",UPRCS(KEY*> 


& 


10 IF K-l THEN X-X-l C" GOTO 


170 


20 IF K=2 THEN X = X + 1 i? GOTO 


170 


30 IF K=3 THEN V=1.5 ELSE V 


.3 


40 GOTO 160 




SO OFF TIMER # 1 




60 T=TIME-T 




70 DISP 




BO DISP TAB (9 J s " >>>>>CRASH< 


<<< 


90 WAIT 1 




00 DISP "PERFORMANCES: "jD/1000; 



"S<CHR*(27)!< 



F ORMULE 1 Jt§Sife>,_ 

?' 23 ° oil i n,0 «f/eM= 

es en 



tf 



16 




PASC ^M ELLY 



HP 75 



<M EN";T; "E5EC" 



10 REN "GOLF 11 
30 CLS 
40 FAST 
50 LET SC0=0 
60 LET TROU"l 
70 LET PART=0 
30 LET GREEN=Q 
30 LET ESS=0 
100 LET FfiR=3 

119 LET AL=RND 

120 IF RL<.18 THEN LET PFIR=5 

130 IF PRR=5 THEM LET DIS=INT •' RHfj.t7B ■'+43? 
140 IF RO = .lS THEN LET PRP=4 
150 IF RRR=4 THEM LET DIS=INT ■:. EMD*204 
150 IF PAE=3 THEM LET PIS=IHT vPNOM 52,f9, : . 

240 FFI'IT . . . . ■'TRUI.I ";TROU." i 

250 PRINT . , ■ . "LE PAR EST ■ ". 

270 IF GREEHOl THEN PRINT .... 

289 IF GREENE THEN GOTO 340 

23-0 INPUT HCLUB 

300 CLS 

310 IF NCLUB>13 THEN GOTO £28 

315 CLS 

320 GSSUB 400g 

:::-!•? goto 390 

340 if gpeen=1 then frint ... 

350 input dputt 



*** ".iBIS.i" METRE". PSj' 



■22-? 



r:-IS.:" METRE" JP*.-' 



■■['[:';ThNCE DE PUTT 



330 LET fl(_=RND 
400 IF RL>=.2 THEN GOTO 5 gig 
405 IF ALL". 83 THEN GOTO 3009 
410 IF RL<„85 THEN GOTO 1000 
420 IF fiU.l THEN GOTO 1500 
430 IF RL<.15 THEN GOTO 2000 
440 GOTO 350S 



ZX-81 



2520 IF TIROJ THEN LEI **«»$» 

2530 PPIHT .. , ..."DRIVE "iESS.TIP, 

2540 GOSUe 5000 

.='5W PRINT .., ,"TPOU ";TROU 

.257fi PRINT .. .. . ."LE PAR EST ■ ".'PAR 

2580 RETURN 

3010 LET PIS=BIS-TIP 

3020 IF BIS<27 THEN GOTO 530 

3039 CLS 

3O50 LET DIS=PIS*TIR 

3060 LET ESS=ESS+f 

3070 LET AL=RNP 

^nsn if RL>=.5 THEN GOTO 3110 

3030 PPIMT " '..-'ON;:. RVEr. VISE | r : ; FiRR.C'E'- B*flVi 

3100 GOTO 3120 

3110 PRINT "VOTPE BRLLE EST PFPr.dE ORHS IF 

3130 PFIMT ■ .":mm ' 

3130 PRINT ... '"..'i-il.l:-. PEPI'F/ -T'UF F1 PtSTfilT.!?" 

3I40 PRUSE 200 

3150 CLS 

3160 LET TIR-0 

3170 GOTO 590 

3510 CLS 

3520 LET PI3=PI3-T1P 

3530 LET ESS=E33+L 

3550 IF &IS<22 THEN GOTO 600 

3560 LET RL=RNO 

3570 IF AL>.9 THEN GOTO 3600 

3580 PRINT "VOTPE BRLLE ? PRNS L 

E ROUGH. .."... , "CHOIK DU CLUB ""8 

3530 GOTH 3610 

3609 PRINT "LA BRLLE EST DANS LE 

■-■ POSFRllv; 11 ,, . "rHCiIX PU CLUB ""12 



"CHECHEZ PONS LR BRLLE" 



16 K 



' fJU ' 



'13'" 



'BOGIE "iES3,"PRR PLUS "; ESS-FAR 
'PAR ";E3S 



1 LET DIS=DIS-TIP 

■■ LET E33=ES3M 

J LET p*=" " 

I IF TIROl THEN LET P*="S" 

1 PRINT .."DRIVE ":ESS.TIR.:" I1ETPE";P* 

t IF DIS>-1 THEM GOTO 680 

) LET DIS=-DIS 

I GOSLIB 6000 

! PRINT .,,,DIS;" METRE" ; PS. " PERPIERE" 

l IF DIS=0 THEN GOTO 7.55 

? IF DIS-:16 AND C'IS:>-16 'HEN PRINT ....... "LR BRLLE EST i 

1 IF DIS'16 AMP PI3>-16 THEN LET GPEEN=1 

I GOTO 220 

■ IF PI3=0 AND ES3=1 THEN GOTO 310 

) IF ESS>PRR THEN PRINT 

« IF ESS=PRR THEN PRINT ... 

I IF ESS=PRR-1 THEN FRIHT . 

I IF ESS=PRP-2 THEN PRINT .. 

) LET SCO=SCO+ESS 

I LET PART=FAPTi-PRR 

) LET TROU=Tpnij+l 

I IF TROUMS THEN GOTO 350 

I PAUSE 400 

t CLS 

I GOTO m 

) PRINT ..... "PAR PU PRCOURS " .; PART 

I PRINT ....... "VOTPE SCORE "jSCO 

I IF SCC=PRRT THEM PRINT . 
< IF 3C0>PART THEM PRINT .. 
i IF SCCi:»PRPT+5 THEN GOTO 2400 

l IF 3C0<PRRT THEN PRINT "MOINS ' 

i IF PRRT-SC0'4 THEN GOTO 2450 

S STOP 

3 3L0W 

? FOR 1=1 TO 10 

3 PRINT RT 18. 9; "F L C T T S" 

3 PRINT RT 18. 9t" E I I R I N " 

5 PRINT RT ie.9;"FELICITATI0NS" 

3 NEXT I 

3 PRINT RT 20.9. "UN RCE BRRVO " 

3 PflfJSE 209 

3 FAST 



5120 PRINT ' 



' HO ['E33N3 ['l.i PAP" 



PRPl-SCU;" BIEN , 



W 


GOTO 730 






1MFH 


LET P1S=DIS-TIP 




iww 


LET ESS-ESS* 1 






1.1411 


IF 0IS<22 THEN 


GflTS 


hHW 


■ r .'-,ll 


CLS 






iU/" 


GOSUB .■■■■500 







3610 GOSLIB 2500 

363* INPUT NPLUF: 
3630 CLS 

3640 IF NCLUEK3 AND RL<".9 THEN 
OTQ 3610 

3650 IF HL<.9 THEN GOSUP 40S0 
■!660 IF Rl ■■.=..? PNC' Mf|.:.IFj--13 THEN 

GOTO 3610 
3670 IF RL>=.= THEM GOSUB 4120 
3730 GOTO 5S0 
4010 IF NCLUB=1 THEN LET TIP=INT 

■ PN0-t:53)+169 
40?» IF HCI.HB=2 THEN LET TIR=IHT 

'PNOt:5O>+160 
4«39 IF NCLUB=3 THEN LET TIR=INT 

■'PNr*32->+146 
4040 IF MCLUB=4 THEM LET T1R=1MT 

■'PMM2S>+137 
4050 IF HCLUB=5 THEN LET TIR=IMT 

■:PNH"t:!ftH123 
4960 IF HCLUB=6 THEN LET TIR=INT 

iPNr:':M8>+109 
4070 IF NfLUB=7 THEM LET TIR=INT 

^PND*22->+91 
4080 IF MCLUB=B THEN LET TIR=INT 

( PND*22 H73 
4990 IF NCLU»-9 THEN LET TIP=INT 

':.PND*.13'+64 
4190 IF NCLUP=10 THEN LET TIR=IN 
T i:PMP+1.8>+50 

4110 IF NCLUB=11 THEN LET T1P=IN 
T -RMO*[0H36 

4120 IF NCLUB=1.2 THEN LET TIP=IN 
t -PNr>* 18 5+22 

4139 IF NCLUE=13 THEN LEI TIP=INT 
4139 RETURN 

4313. IC JJPJJB-10 THEti LET TIR=INT 
■1330 IF NCLI.IB=11 THEM LET TIR=INT 
433C1 IF HCL.UB=12 THEN LET TIR=INT 
4340 IF NCLUB-13 THEN LET TIP=INT 
4350 RETURN 

4510 IF DPUTT=1 THEN LET TIP=1 
4530 IF r.pi.lTT=3 THEM LET TIR=2 
4530 IF DPUTT=3 THEN LET TIR=INT ■'. PWrrV'*? 
4535 IF DPUTT=4 THEN LET TIP=INT < RHD*3 >+3 
4540 IF OPUff-5 OP IWTT-« THEN LET TIR-IHT <RHB#8H4 
4545 IF [>PIJTT = 7 np DPIJTT-8 THEN LET TIR=INT ( RNM5 )+3 
4^0 IF [>PHTT=9 OP r.PriTT = 10 THEN LET TIR=INT < FU0%6 >+6 
4560 IF PPUTT=11 OP DPUTT-=12 OP 0PUTT-I3 THEN LET TIR=IHT <RND*7 
4570 IF PPUTT=14 OP WUTT-1S THEN LET TIP'INT < PND*7 >+9 



Choisissez le bon club! 

Attention aux arbres et aux bunkers ! 

Arriverez-vous a contourner le plan d'eau sans y noyer votre balle? 




.. "RVRNT LES obstacles HRBITUEL3 



.--foe. r;rrn 500 

50OO PRINT RT 2,ia.;"G.0.L.F." 

5010 PRINT ....... "CE JEU 3E iQUE 3UP ON PAPCOURS" , 

•■",,, "EAU. ARBRE ■ ROUGH, BUNKER " 

5020 PRINT .. "IF'- n..|ipc -:.n ii -, .IUMEP0TE3 DE UN ft" . " TREIZE. ",.."ILS REP^E'-F 

NTENT LES BOIS 1 ft 4".,."ET LES FERS 3 A 9 AV€C LJEOGE ET"^" SAND-UEDGE. " 

5030 PPINT "1.8 ■ I-:Tf : ■-.■ \ r '.."■■ih-TF- pnMNF priMP LE?" . "n.lJBR i ft m^rRUCF MO'-.TNMF . " 

r-nr, pa,jc E 40c, 

5037 SLOtJ 

5049 FOP 0=1 Tn 22 

5050 FOP T=l TO 12 
5060 NEXT T 
5079 SCROLL 
5980 NEXT D 
5109 PRINT AT 0.0i"CLUB 

PRINT ■ 



M.' 



DISTANCE MOVENIIE" 
'"."132 M."." 3". "162 M. 1 
"118 M."," 7", "102 M," H .' 



51S0 PRINT 

5149 PPIMT 

5150 PPIMT 
5160 PAUSE 4E4 
5179 GOTO 10 
6000 LET PS=" " 

6019 IF PI SOI THEN LET P*="S' 

6020 RETURN 
7009 STOP 
8090 SAVE "GOLF" 
9099 GOTO 3900 

'RND*14)+14 

CRHDM8H32 
(RH»*18>+18 

•PND*18H14 
(RND*14>+9 



0"." 53 M."," II"." 45 M.'V" 12"." 32 M. " ., " 13"." 21 t 
.."VOUS N""EN FEPEZ PR'- fiOTflT mil?".. .."LE SABLE OU L" 1 
PPFSSEZ 1 TOLCHE fhi IP r.nMMFNCER" 



GOLF 



1080 LET AL*RNt> 

1090 IF AL>.5 THEM PRINT "tPLOUF LR GALLE EST DRH8 L""ERU *VOUS DEVEZ LR DPO 

PPEP RU PR IK :fU""ONE PENRLITE" 

1109 IF RL< = .5 THEN PRINT ....... "*[> I RECT DANS UNE PL ROUE [:■" "ERl li'-.'OM^ RHMVEZ Lft 

.'OUEP-- *VOUS POUVEZ RUSSI LR SORTIF: RU .tPRIX L""UNF PENRLITE" 

1119 IF RL<=,3 THEN GOTO 1150 
1L20 PRUSE 209 
1130 CLS 
1140 GOTO 599 
1150 PRINT ....... 

1160 INPUT R» 
1170 IF R*=' 
1180 IF R*= 
1199 PRINT 



'PERPUE CP) OU JOUEE < 



"13"". 



' THEN CLS 

' THEN GOTO 590 

..."CHOIX PU CLUB ""10"" R 
1290 INPUT HCLUB 

1206 IF NCLUB--10 OR NCUB > 1 3 THEN GnTO 11' 
!310 GOSUS 4300 
1220 CLS 
1230 LET RL=RND 
1240 IF AL--.85 THEN GOTO 580 
1250 PRINT . .... ."VOUS ETE5 TOUJOUR? DAMS L 

1260 LET ESS=ESS*1 
1270 LET TIR=0 
1280 GOTO 1190 

1519 LET DIS=[\IS + tir 

1520 LET ESS=E3S+1 
1540 IF 0I£<22 THEN GOTO 590 

1559 CLS 

1560 LET AL=PND 
1579 IF AL>=.5 THEN PRINT ' 
LES RRBRES" 

1539 IF RL<.5 THEN PRINT '■*** PIPF^T PRU3 l?'-: RPFPFS 
!530 G03IJB 2500 

1609 print . . ..."CHOt;-: pu club ""is"" ft ""is 1 "'." 

1610 INPUT NCLUB 
1620 CLS 

1630 IF HCLUB':" 10 OR MCI.. I 'B'- 13 THEM GnTO 1590 

1640 -03UB 4100 

1680 LET RL=RNP 

1690 IF RL<.95 THEN GOTO 580 

17O0 PRINT "VOUS ftVE- TOUCHE UN RPBPE. " . . , ■ "PE inilF?" 

1710 LET TIR=0 

1720 PRUSE 290 

1730 CLS 

1740 LFT ESS^ESS-M 

17=19 GOTO 1590 



COUP TERRIBLE . 



LR BfiLLE EST f'RMS 



20H 



CLS 



2020 LET DIS=PIS-TTP 
2030 LET ESS=ESS+1 

2059 IF PIS- 16 THEN GOTO £00 

2060 GOSLIB 2500 

2070 PRINT ....."VOTPE BRLLE EST PANS I 



2080 INPUT 'fruJE 

2090 CLS 

2100 IF NCLUB< 1.0 OP NCLUB 

2110 GOSUB 4390 

2129 LEV Rf -RND 

ML'. . 95 THEN GOTO 



. "CHOIX DU CLUB ' 



■13 THEM GOT': 3060 



2140 PRINT 
2150 PAUSE 200 
2160 LET TIR=0 
2170 LET ESS=ESi 



/OUS i- 



21°' 



CLS 



2190 GOTO 2960 

2400 PRINT ... ... TRB 7 

U VOS DISTANCES 

2410 PRINT . ."PPESSE2 1 

2415 PRUSE 4E4 

2420 CLS 

2439 GOTO 5199 

2450 FRIHT ■ . . .TRB 5* "C 

.. ."PEFRIPE...?" 

2469 FPINT .. "ORES'-EZ 1 TOUCHE 

2465 PRUSE 4E4 

2479 CLS 

2480 GOTO 1 
2519 LET Pt=" '■ 



C""EST TERRIBLE.' " if SuCGEFT TC FEVTI-E^ '■ 

. " OU PE PRENPRE PES COI IRS" 

n'JijHE '"■■"imp n-NTUii PR" 



EST pRS MflL. ' 



! ME POURREZ LE" 



XIR CONTIMUEP" 



PETITES ANNONCES 
GRATUITES 




Etant donne que vous etes en 
train de lire le premier numero 
d'HEBDOGICIEL.quelespetites 
annonces sont reservees a nos 
lecteurs et que, par definition, 
un journal ne peut avoir de lee- 
teur ayant d'exister, il n'y a pas 
de petites annonces dans ce 
numero. 

Nos colonnes vous sont ouver- 
tes, n'hesitez pas a envoyer vos 
annonces au Journal, n'oubliez 
pasde mentionnervosadresses 
car nous ne pouvons accepter la 
domiciliation au Journal. Nous 
nacceptons pas non plus les 
annonces de ce type : 



C?& 




A VENDRE THES BEAU, PAS 
CHER : SUPER-ORDINATEUR 
IMPORTE SOUS LE MANTEAU 
AVEC 200 PROGRAMMES PIRA- 
TES PAYABLE EN PETITES 
COUPURES. ECRIRE AU JOUR- 
NAL. 




421 

Q> 

100 CALL CLEAR 

110 CALL SCREEN(5) 

120 D=4 

130 C-10 

140 GOSUB 3380 

150 D=2 

160 C=15 

170 GOSUB 3380 

180 D=l 

190 C-ZO 

200 GOSUB 3380 

210 CALL KEV(0,KO,SO) ^ A=J 

220 IF SO-0 THEN 210 

230 CALL CLEAR 

240 PRINT "VOULEZ VOUS LIRE LES REGLES" 

250 INPUT "DE JEU ? ":XX$ 

260 IF SEG$(XX$,1,1)="0" THEN 3970 

270 REM DEBUT 

280 DATA 421, 9, 111,7, 666, 6. 5, 611, 6, 655, 5. 5 

290 DATA 511,5,444,4.5,411,4,333,3.5,311,3 

300 DATA 222,2.5,211,2.76,221,2.4,654,2.3 

310 DATA 543,2.2,432,2.1,321,2,211,2.75 

320 CALL CLEAR 

330 CALL SCREEN(13) 

340 PRINT "QUEL EST LE NOM DES JOUEURS,"::: 

350 INPUT "JOUEUR 1 ? ":J1$ 

360 PRINT ::: 

370 INPUT "JOUEUR 2 ? ":J2$ 

380 T0TALl=O 

390 T0TAL2=0 

400 P0T=21 

410 CALL CLEAR 

420 PRINT "TIRAGE DO TOUR" 

430 PRINT " "::: 

440 INPUT "enter" :XX$ 

450 CALL CLEAR 

460 PRINT TAB(7);J1$;TAB(18);J2$ 

470 FR1NT ::::::::::: 

480 C=10 

490 GOSUB 3350 

500 GOSUB 3380 

510 D1=D 

520 C=20 

530 GOSUB 3350 

540 GOSUB 3380 

550 D2=D 

560 IF D10D2 THEN 580 

570 GOTO 460 

580 IF D2<D1 THEN 640 

590 PRINT "C'EST ";J2$;" QUI COMMENCE.":: 

600 AA$=J1$ 

610 J1$=J2$ 

620 J2$=AAJ 

630 GOTO 650 

640 PRINT "C'EST ";J1$;" QUI COMMENCE.":: 

650 INPUT "enter":XX$ 

660 CALL CLEAR 

670 PRINT "VOULEZ VOUS JOUER SANS LA":: 

680 INPUT "CHARGE 7 (0/N) ":XX$ 

690 IF SEG$(XX$,1,1)<>"0" THEN 740 

700 Z=l 

710 TOTALl'10 

720 TOTAL2=10 

730 GOTO 1250 

740 CALL CLEAR 

760 T=2 

760 GOSUB 2040 

770 PRINT "CHARGE:":: 

780 PRINT "VOILA VOTRE TIRAGE, ";J1$ 

790 D1J=D$ 

800 SC1-SC0RE 

810 INPUT "enter":XX$ 

820 CALL CLEAR 

830 T=2 

840 GOSUB 2040 

850 PRINT "CHARGE:":: 

860 PRINT "VOILA VOTRE TIRAGE, ";J2$ 

870 D2$=D$ 

880 SC2=SC0RE 

890 INPUT "enter" :XX$ 

900 CALL CLEAR 

910 IF SC10SC2 THEN 940 

920 PRINT "EGALITE." 

930 GOTO 1170 



Le jeu commence par la "charge" : chaque joueur lance ses cinq des 
une seule fois. On joue chacun son tour. II y a 21 pions au pot, et 
le joueur qui perd le coup se voit octroyer le nombre de pions cor- 
respondents au tableau ci-dessous : 

- 421 vaut 9 pions. 

- 3 as valent 7 pions. 

- 3 des identiques valent la valeur d ' un des des. (666 vaut 
6, 333 vaut 3, etc. . . . ) 

- 2 as et un de valent la valeur du troisieme de . (116 vaut 



6, 113, vaut 3, etc. . . ) 

"Nenette" (221) vaut 2. 

Les suites (123, 456, etc..) valent 2. 

Les 40 autres possibilites valent 1 pion. 



TI-99/4A 



La decharge commence lorsque les 21 pions du pot sont distribues.On 
ne joue plus chacun son tour : c'est le joueur qui a perdu le tour 
precedent qui commence et qui decide en fonction de son jeu,de jou- 
er une, deux ou trois fois. 

Le gagnant est celui qui se debarasse le premier de tous ses pions. 



Vous pouvez jouer sans la charge, (L'ordinateur 
tion au debut de la partie ) vous commencez alor 
decharge avec 10 pions par joueur. 

940 IF SCKSC2 THEN 1060 1590 PRINT "VOUS POUVEZ JOUER ";T;" FOIS 

1600 T=ABS(T-3) 

1610 PRINT "VOUS DEVEZ BATTRE ";D3$ 

1620 PRINT "VOUS AVEZ ";T0TAL4;" POINTS" 

1630 PRINT «;" A ";T0TAL3;" POINTS" 



950 PRINT Jl$; " GAGNE CE COUP. 

960 PRINT Dl$;" C0NTRE ";D2$ 

970 IF SC1M.5 THEN 1000 

980 SC1=1 

990 GOTO 1010 

1000 SC1=INT(SC1) 

1010 IF P0T>SC1 THEN 1030 

1020 SC1=P0T 

1030 T0TAL2=TOTAL2+SCl 

1040 P0T=P0T-SC1 

1050 GOTO 1170 

1060 PRINT J2S;" GAGNE CE COUP 

1070 PRINT D2$;" C0NTRE ";D1$ 

1080 Z=l 

1090 IF SC2>1.5 THEN 1120 

1100 SC2=1 

1110 GOTO 1130 

1120 SC2=INT(SC2) 

1130 IF P0T>SC2 THEN 1150 

1140 SC2=P0T 

1150 T0TAL1=T0TAL1+SC2 

1160 P0T=P0T-SC2 

1170 PRINT "SCORE" 

1180 PRINT " ":: 

1190 PRINT Jl$ ; " • ";T0TAL1 
1200 PRINT J2$;" = ";T0TAL2 
1210 PRINT "POT = ";P0T 
1220 INPUT "enter" :XX$ 
1230 IF P0T=J) THEN 1250 
1240 GOTO 740 
1250 CALL CLEAR 
1260 PRINT "DECHARGE" 

1270 PRINT " " 

1280 T0TAL3=T0TAL1 

1290 T0TAL4=T0TAL2 

1300 IF ZOI THEN 1430 

1310 G$=J1$ 

1320 G2$=J2$ 

1330 GOSUB 1460 

1340 GOSUB 1950 

1350 IF ZOI THEN 1380 

1360 Z=0 

1370 GOTO 1310 

1380 G$=J2$ 

1390 G2$=J1$ 

1400 GOSUB 1460 

1410 GOSUB 1950 

1420 IF ZOI THEN 1450 

1430 Z=0 

1440 GOTO 1380 

1450 GOTO 1300 

1460 PRINT "A VOUS, ";G$ 

1470 T-0 

1480 PRINT "VOUS J0UEZ LE PREMIER." 

1490 PRINT "VOUS AVEZ ";T0TAL3;" POINTS" 

1500 PRINT G2$;" A ";T0TAL4;" POINTS" 



1640 INPUT "enter":XX$ 

1650 CALL CLEAR 

1660 PRINT D3$;" A BATTRE." 

1670 GOSUB 2040 

1680 SC4=SC0RE 

1690 D4$=D$ 

1700 INPUT "enter" :XX$ 

1710 CALL CLEAR 

1720 IF SC3-SC4 THEN 1930 

1730 IF SC3>SC4 THEN 1760 

1740 Z-l 

1750 GOTO 1850 

1760 PRINT G$;" GAGNE CE COUP." 

1770 PRINT D3J;" C0NTRE ";D4$ 

1780 IF SC3>1.5 THEN 1610 

1790 SC3=1 

1800 GOTO 1820 

1810 SC3=INT(SC3) 

1820 T0TAL4=T0TAL4+SC3 

1830 T0TAL3=T0TAL3-SC3 

1840 GOTO 1930 

1850 PRINT G2$;" GAGNE CE COUP." 

1860 PRINT D4$;" C0NTRE ";D3$ 

1870 IF SC4M.5 THEN 1900 

1880 SC4=1 

1890 GOTO 1910 

1900 SC4-INT(SC4) 

1910 T0TAL3-T0TAL3+SC4 

1920 T0TAL4=T0TAL4-SC4 

1930 INPUT "enter":XX$ 

1940 RETURN 

1950 IF T0TAL3<0 THEN 3880 

1960 IF T0TAL4<0 THEN 3910 

1970 CALL CLEAR 

1980 PRINT "SCORE" 

1990 PRINT " ":: 

2000 PRINT G$;" - \T0TAL3 

2010 PRINT G2J;" = ";T0TAL4 

2020 INPUT "enter":XXj 

2030 RETURN 

2040 REM TIRAGE ET AFFICHAGE 

2050 T-T+l 

2060 REM TOURS 

2070 C=10 

2080 GOSUB 3350 

2090 GOSUB 3380 

2100 Dl-D 

2110 C=15 

2120 GOSUB 3350 



1510 INPUT "enter" :XX$ 

1520 CALL CLEAR 

1530 GOSUB 2040 

1540 SC3=SC0RE 

1550 D3$=D$ 

1560 INPUT "enter" :XX$ 

1570 CALL CLEAR 

1580 PRINT "A VOUS, ";G2$ 



2130 GOSUB 3380 
2140 D2-D 
2150 C-20 
2160 GOSUB 3350 
2170 GOSUB 3380 
2180 D3=D 

2190 IF T=3 THEN 3050 
2200 A$="RETIRAGE 
16 



(0/N)" 



vous pose la ques- 
directement par la 

2210 FOR 1=1 TO LEN(A$) 

2220 CALL HCHAR(12,5+I ,ASC(SEG$(A$,I ,1))) 

2230 NEXT I 

2240 CALL SOUND(100, 600,0) 

2250 CALL KEY(0,K1,S1) 

2260 CALL S0UND(1,800,9) 

2270 IF S1=0 THEN 2250 

2280 IF Kl=78 THEN 3050 

2290 IF Kl=79 THEN 2310 

2300 GOTO 2250 

2310 T-T+l 

2320 CALL HCHAR(12,28,79) 

2330 A$="PREMIER DE ? (0/N)" 

2340 FOR 1=1 TO LEN(A$) 

2350 CALL HCHAR(14,5+I,ASC(SEG$(A$,1,1))) 

2360 NEXT I 

2370 CALL KEY(0,K2,S2) 

2380 CAM S0UND( 1,800, 9) 

2.(90 IF S2-0 THEN 2370 

2400 IF K2=78 THEN 2480 

2410 IF K2=79 THEN 2430 

2420 GOTO 2370 

2430 CALL HCHAR(14,28,79) 

2440 GOSUB 3350 

2450 D1=D 

2460 CALL HCHAR(14,28,79) 

2470 GOTO 2490 

2480 CALL HCHAR(14,28,78) 

2490 A$="DEUXIEME DE ? (0/N)" 

2500 FOR 1=1 TO LEN(A$) 

2510 CALL HCHAR(16,5+I,ASC(SEG$(A$,I,1))) 

2520 NEXT I 

2530 CALL KEV(0,K3,S3) 

2540 CALL S0UND(1,800,9) 

2550 IF S3-0 THEN 2530 

2560 IF K3-78 THEN 2640 

2570 IF K3=79 THEN 2590 

2680 GOTO 2530 

2590 CALL HCHAR(16,28,79) 

2600 GOSUB 3350 

2610 D2-D 

2620 CALL HCHAR(16,28,79) 

2630 GOTO 2650 

2640 CALL HCHAR(16,28,78) 

2650 A$="TR0ISIEME DE ? (0/N)" 

2660 FOR 1-1 TO LEN(A$) 

2670 CALL HCHAR(18,5+I ,ASC(SEGJ(A$,I ,1) ) ) 

2680 NEXT I 

2690 CALL KEY(0,K4,S4) 

2700 CALL SOUND(1,800,9) 

2710 IF S4=0 THEN 2690 

2720 IF K4=78 THEN 2800 

2730 IF K4-79 THEN 2750 

2740 GOTO 2690 

2750 CALL HCHAR(18,28,79) 

2760 GOSUB 3350 

2770 D3=D 

2780 CALL HCHAR(18,28,79) 

2790 GOTO 2830 

2800 CALL HCHAR(18,28,78) 

2810 FOR DELAI=1 TO 200 

2820 NEXT DELA1 

2830 CALL CLEAR 

2840 C=10 

2850 D=D1 Suite page 19 



DEUX SUPER-CONCOURS PERMANENTS 



1 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mots et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire. HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXet FRANCAIS.Si 
votre programme nest pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'amel iorer pour pouvoir nous le 
oroooser a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reqlement: 

ART. 1 : HEBDOGICIEL organise 

de facon mensuelle et trimes- 
Irielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART 2 . Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise Lenvoi d'un logiciel en 
K 7 ou disquelte accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye graluitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature. 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite el de Ibriginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART 4 Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre.l.ruedesHalles 75001 Paris 
ART 8 : HEBDOGICIEL se reser- 




ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 



BON DE PARTICIPATION 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favohtisme pour 
les ordinateurs plus puissants 
ou t res diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



Nom : 

Pre nom : 

Age : 

Adresse : 

n° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existant Ce programme reste ma pro- 
priety et j'autonse HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee) 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non publie. 





CONJUGAISONS 



Ce logiciel permet de reviser vos verbes irreguliers 
anglais. Deux options possibles a votre choix : 

- Ibrdinateur affiche Tinfinitif anglais et vous donnezle 
preterite et le participe passe ainsi que la traduction 
francaise. 

- Ibrdinateur affiche le verbe francais et vous donnez 
les trois formes anglaises. 
Pour plus de facilite les verbes sont mis en data, poui 

accroitre leur nombre il suffit de les ajouter en data, et 
de modifier la ligne 12 : N — (nombre de data). 

Pour eviter d'avoir toujours la meme sequence d'in- 
terrogation, les donnees sont tirees au hasard et stoc- 
kees pour ne I'etre qu'une fois. (Lignes 410 a 430). 

Lorsque la reponse est mauvaise, vous avez la possi- 
bility de deux autres essais. (Lignes 3000 a 3100). Au 
bout de 3 essais, Ibrdinateur affiche la bonne reponse. 
(Lignes 3110 a 3150). 

Toutes les 10 reponses, et apres epuisement des 
donnees. vous avez la possibility d'avoir votre score. 
(Lignes 400-402 et 4000-4100). 
La structure de ce programme est facilement adap- 
table pour tout jeu de question-reponse. 

M. CASTIGLIONI 



>4\0 



tf> 



Bien entendu, un enfant non francophone ne prolesterait pas 
devant JE ALLE, TU ALLES, IL ALLE.. et ce n est pas cette approche 
qui lui apprendra la conjugaison de ce verbe Par contre, ici, on voit 
tres bien mises en evidence par les eleves les notions d'exceptions 
regulieres, de verbes irreguliers, et quelque chose de beaucoup 
plus complexe ; "comment reconnait-on qu'un mot est un verbe ?" 
C'est parce qu'un essai n'a pas donne leffet attendu qu'il y a eu une 
reflexion, et done un approfondissement de Id connaissance par 
I'enfant. 

Soulignons que dans cette demarche, iln'y a pasde notion d'erreur. 
la reaction devant JE AINIE ou NOUS MANGONS nest pas "je me 
suis trompe" mais "ce true ne marche pas encore tout a fait comme 
je veux" Meme les messages envoyes par la machine n'utilisent pas 
le terme ERREUR : on ne rencontre ni SYNTAX ERROR, ni ERREUR 
M 28, mais des indications courtoises (et en francais, bien sur !) sur 
la nature du probleme rencontre par la machine 

CONJUGUE.AU PRESANT 
APPRENDSMOI CONJUGUE AU PRESANT 

(typique dune faute d'orthographe. rien ne vous empechait d'ensei- 
gner a la machine CONJUGUE AU PRESANT, mais il faul vous tenir a 



Suite de la page 4 
Tor I hog raphe que vous lui avez donnee) 

CONJUGUE.AU PRESENT 

PAS ASSEZ DE DONNEES 
(quel radical avez-vous I'intention de mettre dans la boite?) 

3 + 4 

QUE DOIS-JE FAIRE AVEC 7 
Nous verrons ulteneurement d'autres aspects de LOGO - ceux qui 
sont communs a toutes les versions de LOGO, comme c'etait le cas 
dans cet page, et ceux qui sont specifiques de tel ou tel materiel - 
Juste un dernier mot LOGO peut etre utilise avec des enfants tres 
jeunes (une etude tut menee par un chercheur americain avec sa 
fille de deux ans et demi). mais nest pas reserve uniquement a la 
jeune classe : lexemple precedent correspond a un niveau de fin 
d'ecole pnmaire ou debut de college, et LOGO peut aussi rendre 
bien des services a un niveau nettement plus eleve, comme celui 
dune licence de mathematiques ou de physique par exemple Nous 
aurons loccasion den reparler! 

Diane CHERROE BENUTAN 



15 DIM B*(M>.C*<N>,W(N),E*<N),S«<N! 

?e ppiuT-raumt verbes irreouliers" 

30 PRINT" AHOLfllSnOH" 

40 PRINT" QUE CH0ISISSEZ-VOUS" 

50 PRINT" 8 HNOLfllS" 

60 PRINT" F FRflNCRIS" 

70 PRINT" S POUR SORTIU- 

80 QET H* IF«*.""THEN 30 

90 IF M-"S'TKN END 

100 IF <fttO"H">flHDCfliO"F"> THEN 20 

200 FOR I-1T0 H S*<15-"- NEXT 

210 RESTORE 

220 FOR 1-1 TO H 

230 READ B*,C».D*,E* 

240 B«U)-B* C»'l>-C* D»IH»M E*U 

210 NEXTI 

260 IF fl*-"P," THEN 300 

265 REM VERBE FRflNCRIS 

270 print-twbh vows indiquere; poi 

280 PRINT" CHftOUE VERBE L'IMFI-" 
205 PRINT" N1TIF.LE PRETERITE " 
290 PRINT" LE PhRTICIPE PnSSE" 

293 if m--f" then 360 
300 rem verbe rnolais 
310 prinT";m>«i vous indiguerez fo> 
,330 print" chhoue verbe le pre-" 

340 PRINT" TERITE.LE PflRTICIPE" 
350 PRINT" LR TRADUCTION" 
360 PRINT-1001 C POUR C0MMEMCEP" 
370 PRINT"** ? POUR SORTIR" 
390 OCT R* IF P*"-"THEN 390 

384 IF Rt-"3" THEN 20 

385 PRIHTTJH APRES CHflQUE MOT HP- 

. rst oosub 1500 PRiNT-ri" 

1390, 1-0 K "9 fl-RNIK-TI> 00T0 




t TCH";hE0 PfTr.iRii- 



IF lHT'.n'W.>n/\6 THEN Jl" 
481 >»RINT" VCAE2-V0U? VOTRE " f 
402 IHPUT-O.TJ-Rf lFP*-"0' THEN C 
405 PRINT'TT IF 0«-"N" THEN 20 
410 I"1»INT<N«RHIK1'" 
-415 %*•-" C*'" (*■" El«- 
420 IF S*.pO-"THEN 410 
*30 EI'I>-BtTl:' M-M+l B-0 

433 RRIHT-VCRPE " E»<I1 E«-l 

434 INPUT , 'IIIFIHITIF " Bt 

435 INPUT "PRETERITE ".C* 

436 lNPUT"PM»TICIf€ " Dt 
43/ IF 8*-"F" THEN 480 
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V 



ANNUAIRE ELECTRONIQUE 



MASTER 
MIND 



J.-M. COHEN. 



1 REM 

2 REM 

10 BORDER 



MRSTERMIND 



16 GO SUB 10BO 



7 ; GO 



PRU5E 4E4 
SUB 2300 



CL.:-: 



PRINT 



..20.. "R BIEMTOT. 



20 INK 

30 FOR P=l TO 

4.0 PRINT ; LET D* = ,: ESSflI No " 

SO PRINT TR8 4.;: FOR L = l TO 3: 
PRINT D$CLi.; : BEEP . 02 , . 1 : NEXT 
L: PRINT P; 

60 BEEP .01,. i. INPUT ''CODE 
3*: IF LEN ft*<4 THEN GO TO 50 

S3 IF fl*="5TOP" THEN GO TO S2E 

S2 IF R*<"1111" OR R*>"????" T 
EN GO TO 60 

65 FOR L = l TO * : PRINT RT P+S, 
+ 15.; BRIGHT l; INK CODE R* (L) -4 

'••"; ; NEXT 1_ 
100 GO SUB 500 

110 IF 5=4 THEN PRINT RT 20,0, 
OU5 RUEZ GflGNE": GO TO 2QQ 
120 GO SUB 600 
130 PRINT RT P+2..22; ; FOR L = l T 

5: BEEP .1..1-. PRINT "•"!: NEX 

L 
150 FOR l_=l TO U BEEP ,l,.l: P 
INT "**•; : NEXT L 
170 NEXT P 

1S0 PRINT RT 18,0; "OESOLEA'OUS 
C'EZ PERDU" 
130 PRINT "Lfl SOLUTION ETRIT. 

FOR L = l TO 4-: PRINT BRIGHT 1; 
INK CODE P* (L) -4-BJ ■'•". : NEXT L. 
PRINT 
£00 INPUT "UOULEZ-UDLIS REJOUES 

-.: flt 
£10 IF LEN R*> = 1 RND fl*tl*="G" 
HEN CL5 : RUN 
320 PRINT RT 2 
'230 STOP 
5i0 FOR Q=l TO 4 
530 LET GIO) -CODE RJCO) 
54« NEXT S : LET 5=0 
= 50 FOR 1=1 TO 4. 
550 IF GU) (JCIIJ THEN GO TO SB 

570 LET S=S+1 

530 NEXT I : RETURN 

6GO FOR 1=1 TO 4- 

S10 LET RiI)=CGDE P$!I) 

52B NEXT I 

S30 LET U=0 

640 FOR I=i TO 4. 

550 FOR J=l TO 4 

660 IF Gil) wR(J) THEN GO TO 69 

670 LET U=U+1: LET R(J3=0 

660 GO TO 700 

S90 NEXT J 

-00 NEXT I 

710 LET U=U-3: RETURN 

S00 PRINT TRB 10: FLRSH I.; INK 

; PAPER l.-REGLES DU JEU 

310 PRINT - ■* PION5 DE COULEUR5 
1,'DNT ETPE CflCHE:. PAR L.E SPEC 

RUM. C EST R UOUS DE l_E5 Rt 

ROUUER. POUR UOUS RIDER, L 

ZX RFFICHE POUR CHROUE BONNE 
OULEUR ;■■-•■■ -»- _ M RL PLRCEE" 
" "•■' - BIEN PLRCEE" 
■3 20 PRINT 
030 PRINT "UQU3 DEUE2 ENTRER DE 

CHIFFRES QUI CORRESPONDENT B 

X COULEURS -CHIFFRES DE 1 ft 

, BLEU R BLANC BONNE CHRNCE 

04 PRINT RT 21 .27; '■,./■.. " 

350 RETURN 

O00 RESTORE 

010 LET G* = 'UM COHEN PRESENTE' 

LET C=l 

15 GO SUB 3000 

020 LET GJT= ■ MRSTERMIND 

>_ET C=2 

030 GO SUB 3000 

370 CL5 ; PRINT INK 2; PRPER £ 

T 0,10; 'MRSTERMIND" 

060 DIM P(4) . DIM CU) : DIM G *4 



035 


FOR N = l TO 4.: LET C'.N1=INT 


RND*?J +1: BEEP 0.01,0.05-. NEXT 


090 


FOR N = l TO 4.: IF CINj :-0 RN 


c >: n 


<B THEN LET C iNJ =C(NJ +*S: 


xt r 




1.130 


LET P$="" 


110 


FOR X=l TO 4-. i_ET P*=P*+CH 


<C 


X-i } NEXT X 


120 


FOP y=0 to 23: BEAD C: POK 


VSR 


"R"+X.C: NEXT X-. DRTR 0.B0 



126 . 60, . 0,0 .24 . 36 . I 
.24,0 .0,0 ,0 .Si ,e0 . 60 . 24. ,0 .0 
130 INK 6 : F'LOT INK 1 : 124 . 15S . 
RRU 0.-67; DRAIJ 39.0: DRRU . S7 

ORHU -39.0 
14.0 PLOT 126.153: DRRU 0..-63. C 
A!J 35 . . DRRU 0.63; DRRU -35 ■ O 
490 INK 7: RETURN 
500 SflUE "MASTER" LINE 1 
510 STOP 

000 FOR X= 1 TG LEN G J 
010 FOP Vs£l TO 11 STEP -1 
020 PRINT RT V.X+6; INK Cj PAPf 

6;G*;X) BEEP .01.1: IF Y T . 1 ' 
HEN PRINT RT V..X+6; " " 
O30 NEXT Y NEXT X 
340 RETURN 



Un programme utilitaire qui vous permettra de creer un 
annuaire informatique, de gerer un f ichier d'adresses, de 
modifier ou supprimer des f iches, de rechercher un nom 
et de sauvegarder automatiquement un fichier sur 
cassette. 



GET'>'$ 



5 REM --GE3TI0H CfiRHET D ; hWE5 ,: ;E- 

6 CLS FAPER4 

7 FRINT PRINT, PRINT, PRINT, PRINT 
18 PRINTCHR*<4 >.; " H .:SPC<5}>CHR*<: 27 r, " ' 

11 PRINT PRINT PRINT = PRINT PRINT INK1 

12 PRINT'PRINT; PRINT PRINT" " :f:HR*< £7 ); "L" ^pfX 
ER" 
15 HIMEM#97FF 

26 GG3UB20888 REM ROUTINE DE SAUVEGARDE 

24 H-:=50 = NN?:=H--'.-l:REI1 DIMENSION DU TABLEAU 

25 DIM CT*(N>.+ 1> 

39 DIM ChRNET*C4,HK5) 

35 REM—CHTOGEMEHT CARNET— 

40 GO8UB1550 

55 REM NOM . PRENOM— DEBUT— 

69 CLS, INK3,PAPER4 

65 PRINT, PRINT, PRINT "Hettre *F' dans HQM frottr 
fc-S REM NQM.PRENOM 

70 PRINT -PRINT, PRINTM3G* PRINT -PRINT PRINT ,pRIN 
72 INPUT " HOM - « .\-im 

?<t IF NHS="F"THEH 1750 

75 PRINT-PRINT, INPUT" FRENCH ,";PI1S 

77 T3>.=8 

SO PRINT, PRINT"VOTRE CHfliX-" 

30 PRINTSPCC 10).i"-'C-' Pour cr??r" 

100 PRINTSFCXiO^'-'ir Pour modifier" 

110 PRINTSPCati-Jj"- , S ) F-""ir s..ppr;i^r 

iJO PRTHTSFC' ltt ■>>•" R-' pour rech-r-h-i 

i23 fRINTSPC--. lti;.;'"L- Pn..r Uii-.t-r" 

130 PRINT PRINT, PRINT 

135 FRIHT'T-'RECISEZ yrilRE OPTION, 

140 !F LH$="l'i" THt-'N ^OiUEl^OO 

15y IF UHS="R" '1HEH GO SUB c'"' 

ISO IF CHt="S" THEN &0SUE 5m 

170 IF CHt="C" THEN GiV-.MB! ' "'.^ 

130 IF 0HS="L" THEN GOSUB 7Hm 

185 IF T3'.=U THFU Mr-.G*="" =Grnn£a 

150 GOTO60 

200 REM— RECHERCHE— 

202 HD*= " " : GO** " " ' TL*= ■ " 

203 TS*i=l 

205 FOR: N=0 TO HMX 
210 IF NM$ OCRRNEIS' 0..N) THEN 240 
230 IFFM*=CHRNET*( 1,HJ THEN I.JDICE^N^GOTO 2^1 
240 NEXTN 

245 MSG*="N0N TROUVE" GOT'i 410 

250 REM— fiCCES PEHSt:; '..HEMENTS— 
270 AD* =r-HRNETSt2,N> 
275 CO* =CHRNET*.3..N> 
230 TLS =CBRNETS£4,N5 

390 M'-.GS="" 

295 IHK6* PAF-ER6 

300 CLS ■■ PRINT ■ PRINT : PRINT ■■ PRINT ■ PRINT < PRINT3PK 16 > 

316 PRINT:pRINTSPC':;ie>."PRENOM ,";RM* 

320 PRINT, PRTHT3PC<5>;"HDRt33E " PRINT ;ppINTSPC< V 

330 PRINT, PRINTSPC< 12 >;C0* 

349 PR1NT:PRINT3PC< 10>,"TtL. 'ML* 

356 PRINT PRINT PRINT PR1NI ■ PRINT"'/'--" 1 -" - -■'■■<•■ ■-.-,,•,*, 

360 PRINT, PRINT" si QUI iaP<rz 'O'" 

380 PRINT" si NGH taPez 'N'" 

390 GET Ft 

4O0 IF FS="H"THEN GOTO 1750 

410 RETURN 

420 END 

500 REM— 3UPPRE3IQN— 

510 CLS ■■ PRINT : PRINT, PRINT ; PRINT, PRINT 

520 PRINT3PI' 13).":;UPPRESI0N" 



"CHRNET DHDRESSE".CHRS-;4 



"VEUILLEZ PfiTIEHT 




CflRNETS< 



= PM* 



i FOR N=0 TO NMR 

1 IF NM* OCHRNET5C3.N;' THEN 560 

i IFPM*=C-MRNE"*.: i.N'' THEN I NO I C EV.=N ■ GuTi . S: = :i-.i 

) NEKTN 

i M'E.G5 = "N0N TROUVE" GO! u 630 

I peri— MISE H BLHNC DES 20NES — 

i F0RI = 1TQ5 CARNErt-: I-l,N>="",NErtTI 

- tl-:.Gi-"3np(--i^3IUN EFFECTUEE" 

i RETURN 

I REM— LI3TE X^ES NOMS— 

1 CLS, PRINT, PRINT, PRINT PRINT, PRINT 

' F'PINTCPCC 13 '. "LI3TL" 

: PRINT, PR I HI PP HO- - : sr. s .. --.,"■■'■ ill I [-J hTTEHL'PF" 

: INC. 2 -PRPER 4 

■ PRINT PRINT PRINT-PRINT, PRIMT 



CHRNETt'-l, Jj 



"40 FOP .1 -0 TO NN-: 

750 CT*^J> = CRRHET*te,J 

760 NEKT J 

300 REM— TRI NOM— 

3t0 FOR K=a TO N-l 

320 FOR L - K+l TO N-; 

630 IF GTS' L ;-=CT*i IOTHEN 



370 NEXT L 
030 NEXT K 

ftyo for x=e to m 

51 (i PRINTSPC< 5 '■ CTtf. X> = CT*< X >=" " 
920 if x=im4 nm.::. 10 CHEN GET ■-.* i:l--. 
930 NEXT X 
940 GET St 
945 MSGt="" 
950 RETURN 
I '-<00 REM— CREfiTION— 

1010 CLS, PRINT, PRINT, PRINT, PRINT PRINT 
"120 PPIMT3PO: !.-■ >. "CREHTIfrH" 



! ft -;l 



=1 



t'4ii FOR H=0 TO NN^i 
1050 IF NMtOCfiRNETt- 0.H-THEN 1070 
lii60 IFPH*=CHRHET* l.-Hi- TNEMHSf>t="E:=iJSrE DE-Jfi" 



THEN i.HPNEIt? i 



NMt INDICE:. = 



1 HE>CT H 

i PP I N7 PR 1 NT PR 1 NT PR I NT 
J PPTNT-NOM ;".NMt 

l RRINT"PRENOM n )FM* 
i CHRNElt- LNj = PH* 

INT -PRINT PRINT "HDRESS! 



1^70 EW?NET*<4,N>= TLt 
1280 MSGt="i:REHTION EFFECTUEE" 
l,:9n RETURN 

130O REM— MODIFICATION-- 

1302 RDt="",C0t="" ; TL*="" 

1310 CLS , PRINT i PRINT i PRINT = PRINT = PRINT 

1320 PR1HTSPC': 12X: "MODIFICHTIOH" 

1321 PRINT, PRINT, FRINT"POUR MODIFIER ," 

1322 PRIHT = FRINTSPCc.5>i"Le wmuro taPez '1'" 

1323 PRINT, PRINTSPC'::5>,"La rue- Urez '2'" 

1324 PR:INT^PRINTSPi:<5>.;"Le code Postal taPez '3'"' 

1325 PRINT, FRIHTSPCt5>;"U ville fcaPez '4'" 

1326 PRINT, PRINISPC'5;'.;"Le telephone taPez '5'" 

1327 PRINT = PRIHTSP« 5).; "POUR FINIR THREE ' 6 ' " 
1330 TS5E=1 = SET MX 
!::40 FOR N=0 TO HN^i 

1350 IF NM* . HORNET*. O.N.. THEN 1370 
1360 IEFM*=CHRNETt< l.-HJ THEN INDICE:-.=NG0T0 1330 
1376 NEXTN 

1380 HSG*="N0N 1P0HVE" GOTO 1438 
1390 CLSPRINTFPTMT PRINT PRINT, PHFER0,1NKM>. 
1400 PRIMT "HUM ,'SNMt, FPINT"PRENOM ,";PMt' 

141U ON t-R G0T014U. 1420. 1430.1440.1450.1490 
1411 P=1=X*=CP)PNETV2.N? 

14!^ PRINT, PRINT, PRINT- INPUT" NO V0IR1E = " . V*, G0SUB1430 

1416 OHEHE'l*'. 2. M ■.'=>■:* GOTO1320 

1420 F=4Kt=CARNETt<2..N:;- 

1425 PRINT, PRINT, PRINT = INPUT" VOIE = ".: Yt GOSUB1430 

1 436 CHRNETt-: 2 . N >=Xt GOT 01 320 

1430 F=t , X*=CAPHETV: 3 . N ;■ 

1435 PRINTPRINT, PRINT, INPUC'CODE P03THL , " .; V*: GOSUB 14S0 

1 436 CHRNET*-, 3 . N '=;<* ' GOTO 1 320 
1 440 F=€ ; K*=CF(PNFT*.' 3 , N > 

1445 PRINT PRINT, PRINT, INPUT"VILLE = " ; Yt ;G0SUB14S0 

1446 i-flRNET*-: J ■ N ■=;« = GOTO 1328 
' 1450 X*=CMRHETSi4,N> 

1455 PRINTiPPINT, PRINT, I N PUT " TELEPHONE , ";CHRNETtC4.N > 

1456 GOTO 1490 

1 430 7*=i.EFT*-:: At , P- X :-+Y t+R ) GHT*( Xt . BBS-:: LEN' X* j-L EN- V* >-P > > 
1435 L-'.=l_EMfY*i+P-l 
'436 >'*=LEF*f£t,L^J 

! 490 MSGt= "MOD 1 F ICRT I ON EFFECTUEE " RET URN 

1550 CLS^FPINT, PRINT FRIHTFRniT'AVEZ-VOUS UN CORNET D'RDRESSE " 
1555 PRINT, PRTNTSFC-: IS > "SUR i :RSSETTE " 

1560 PRINT, PRINT, PRINT FRINTsPt. < IR>. "Si QUI t.^pez '0'" 
1570 PR1NTSPC' 10 '-■"^i NON tg.Pez 'N" 
1580 GETTt 
NH*1598 IF T* = "N" THEN GOTO 1730 
1595 NK-39 

1600 CLS , PRINT PRINT : PRINT ■■ FPIHT : PRINT 
i-.-:! ppHp-p,-. -; ■:-rHOPGEMENT CRRNET D'HDPESSE" 
I6>H PRINT PRINI^K'-.-."H PHRTTR ' t IMF CASSETTE" 

lh<n l-RIIir PRINT PRINlsF'1 < i)."MEITRF IF Mlii.lll I uPln nil: til MARCH!" 
i k'-,k RR HI I Rh'JNI RRlNISRi-' '^ ■■"PI-'ES'-.L..' -,Uk IINL loUi-HE " 
1652 PRINT FRlNPi-Pi..-- I c j '."■R'' Pour nH*" 
1654 PRINT, PRINTSPC-: 15>;"'S'' Pour lent" 

1660 GET Bt 

1661 CLS, PRINT , PRINT PRINT PRINT ; PRINT 

1662 PRINT, PRINT PRINT , PRINT , PR! HTSprc 1 >. "VEUILLEZ PAT I ENTER" 
i*--ifi--i PRINT PRINT, PRINT, PPINTSPC>: 10:>;"CHAPGEMENT EN COURS" 
1665 IF B* « "R" THEN 1688 

1670 P0K-E#67,1= GOTO 1690 

16*0 POKE#67,0 

1690 CALL 1027.. CHRNET* 

170O CLS -FRINT, PRINT - PRINT"CHHRGEMEH I TERMIHE" 

1710 FRINf PRINT -l-'RINTSpi_-'-"V:';"HRRETE2 VOTPF MRCNETOPHONE" 

1720 PRINT, PR1NTSPC- 5 -."VOUS POUVE?. TP'RVRILLER" 

173Fi RETURN 

1750 CLS, PRINT, PRINT, PRINT, FPIN1"VriU!.El:-V0US GRRDER VOIRE TRAVAIL " 

■I .-f.fi print PPIHTSFi:.:.S, i .:■"■:;! IP CASSETTE ■" 

1770 PRINT, PRINT, PRINT", FRINTSPCU0>."Si OUT tapes '0'" 

1?88 PRINTSPCf 10 V'S'i NON t-Jpez 'N''" 

1 785 GETTt 

1798 IF Tt a "N" THEN 1960 

1S00 CLS, PRINT PRINT PRINT PRINT, PRINT 

IKIO PP1NTSpr.-5 j. "SAUVEGHRDE f',AR.Ht'i \.y R0RESSE |: 

1320 PRINT, PRIMTSFCCS:.,; "SUP UNh uHSsLTIE" 

1S3A PRINT, PRINT PPINTSFT ..2 -■ "METTRE LE MRGNETOFHONE EN MRRCHE" 

1340 PRINT PPT MTSPC-: 5 '-"EN POSITION POUR ENREGISTRER" 

i:-:50 PRINT PRINT FPINTSPC' 5 -; "PRES3EZ SUR UNE TOUCHE " 

1668 PRINTPRTNTSPi' 15 ,." f Prmr raPide" 

1R70 PRINT, PRINTSFCv 15.'." S' Pour Tent" 

1330 GET B* 

1885 CLS -■ PRINT, PRINT, PRINT, PRINT PRINT 

1398 PRINT, PRINT, PRINT PRINT, PRINTSPCi: 18 >; "VEUILLEZ RATIENTER" 

1SR0 PRINT, PRINT, FRINISP- , -- , . "srii iVEGARt-EEN COURS" 

1910 IF 8* = "P" THEN 1938 

1920 P0KE#67 . 1 , GOTO 1948 

(930 POk:E»67.0 

1940 CALL 1024.CARNET* 

1950 CLS PRINT ^ PRINT, PRINT "SAUVEGARDE EFFECTUEE" 

!%n PRINT, PRINT, PRINT, PRINT, PRINTSPC: 18 1 ; "TERMINE" 

1970 END 

20000 REM SAUVEGHRI.'F T'ONHEES— - 

.-OHO! REM UTILITAIRE — 

28805 A=#B808 , REAC'D* 

20010 F0RI = t TO LENt.Dt:i STEP2 

20020 V=VAL'"t("+MIDta-'*. I. 2 ■ -POt ER. V = R=H+1 ,NEXT 1 

20R30 RERDD* IF DtO"7"THEN 20010 

^l^040 r.n f (-#4Mi'.«MH4r O0KE»t402. tt4L.BS l'O('E#404.SE:>:53 RETURN 

3005O DRTR ^5555'j t :.523394436^;-:T t ,V'i'-iBR-Oi:; i :'ti[>6E:820BAE6A92520C6E5A5332O 

C6F5A5342P 

28060 DATHC6E520EEB820R.'E5242SIOO,-;2O:];5B82004E82860AOi30B101F817HAfl80 

261013906 

20O7O DATA'^i^SI..OP:-:E:-:iHFi-i''SFN:'l,i'Oi:6F5C3DOF52ni.3Ot:90CE-:M2H9' r ,J 1 S2OOE:B^O 

620D6BS20 

28080 DATA96Et.:.' : i ?;0E6r.92M 'i H ';^0.>0E bSt i ]:2030E6S534A002E:1CEC533C8B 1 LEE 

534B08628 

2(109*1 DATAFi4ES4rs^i.42OEEE;32OEEP4.;4iSlOO32O'-'f:;L;SJOO4E:::2-V.OHOO0B101F81 

C20F8D4AA 

2R1 M0 [.HlHf:::HMMk!rHF^r:;--;^fr-;WE6^U'1CSI'OF5A002B9D000910189DeF820C?RS : '^i 

«6013fl-98:3 

28110 DATA650185O!MS:'OO2E^L;2H':,O.V';4^IE 1 ^.2r.O, : :O'. HE62013B9RPi0361CEAfi88B 

1CEE991B8 

30120 r'AlH01CH3S:/:;(86346O18H5CE653;33^61R5LF6348562A004BlCE2OF6DlS55 



160 INPUT 

17Ci INPUT" 

130 AL-t=NVt+" "+'■.■ 

198 i APNET*': 2.N • 

280 PRINT PRINT 

210 INPllT'rnf'F:- Pi: 

2?fl INFUT "VILLE 



OIRF 



'ijjE 



2013O DATA34826020E^00C52CF0034CE4CF4CE200A2002OF3OOSC.:;~^^B4.-OE3OO2 

036r'1F:OCi6 

?«140 DATA2004Eft4CE4CFE208&628862520E2OO3OM52O36['i3OOBHH20E20098FB2 

086DIBOF6 

Pfii^.ii r>ATAC924DHri6R'-^Fi:^.2Pr'H0i C. :-i--'o0hh20F20 



30160 DHlHHS9F36i_E::-:5i:>"i 5R1DOO4E4A0F01FA000B1CEC8C5B4D006R5B5['1 CEEOO 

FC8B1CE18 

,-■01 70 DATA6fFAAC SB i 0F6 C .0R : 'O[>738602004EeH22A4CS5L 45* r . 

201 fiii DATA2 
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VBt.'I) 'B*=B*a? 



440 PRIHT"!NF1N1TIF 

450 IHPUT'TP.CTr.T-I rF 

460 IHPUT"PARTICIPE 

470 INPiJT"FPRNCRI3 '■;£* 

■;e*=b*«:ij''Hhijii:*m:.*. i ■.■',fam<i't=i<?' i.-. )ftNin.Er=E*c m then GO3UB.2000 
',e*«b*<"ii;rnbo:*=c*' i ■ ■ ten: :;r= :■>■■; ■ ■-? = _; -si .n--* 

<B*OBlv"i K'OFmMOCT. I >>ClR.:'H* Ml!' I ' .iCR-'Ef -.:.£(■■ I ' ■■ THEM OOSUP300OI 
IF B<3 THEN 430 
H THEN 4000 
5:30 00 TO 40O 

1500 FOR T=lTO5eB0-HEXT RETURN 
2000 REM BONNE REPONSE 
2010 K=K+1 

50£8 PRINT"WB BOHNE REPONSE" :Q8SUB13M 

2040 PRIHT":T 
-H^J f'ETUPH 
.10013 REN MRUVfllSE PEPOHSE 

3010 print"»w r-ini.-..'R i se refon'seow xisumsee prints" 

3020 p=E+l 

?ojg if 6=1 then print "'■■'Oij'; fi've,: encore den;: esshis" 

3040 IF B»2 THEN PRTNT-F-LL'S QU'UN ESSfll" 
3056 IF B-3 THEN 31 IB 

■■■X.ei IF r.:i/'Fr-. I ■■ them PRINT-HERREUR INFINITIF" INPLiT-wTNFTiilTjF- 

3070 if c*oc*<n then print-ierreup preterite" ■ input-ifpetefite 1 

3000 IF D*<>Bi-a> THEN PRINT'MERREUR PRPTICIPE" INPUT "WRRTICIPE' 
3090 IF E*OE*<IJ THEN PRINT" lERPE: IF r^-Hrl'" HI - " : INPUT" BRANCH IS " 
3100 RETURN 

3110 PRINT" perduot" 

3120 PRINT"LR BONNE REPONSE ETHITKM" 
3130 IF 0*="fl" THEN PRINT B*<I) ,C*a>,D*a>,E*'Il 
3140 IP A*="F" THEN PRINT E*CI),B*U:>,C*CI>,B*<I> 
K14F, ■.Xi-:.IJEt=.0OPPINT*3" 
3150 RETURN 
4000 REM SCORE 
4910 R- I HT<fVM* 10001/19 
4020 PRINT":MM '.'OTRE SCORE EST DE'" 
4030 PRINT K;" REPONSES SUR ";M 
4040 PRINr'OTKIEOIT ■•f\"y.Wf 

4050 IF B-lflB THEN PRINT" VOUS ETES INCOLLABLE" 
4060 IF (fl>75)HNBCfl<190> THEN PRINT" C'EST TRES BIEN" 
4070 IF <R>59>flrtD'.fl<-75> THEN PRINT" C'EST PRS MAL" 
4090 IF CR>23>flNIKFI<-30> THEN PRINT" FAITES UN EFFORT" 
4090 IF A<-23 THEN PRINT" HUM!!!" 

.Ol'/w ■■•)'.-■■;:'■ 

=N THEN 4130 

T" ON CONTINUE OATiO* PRINT":?" 
4120 RETURN 

4130 PRINT"rairai TERMINE"-OOSUB130B QOTO20 

5000 DRTR TO EE, WAS. BEEN. ETRE 



V\C 



20 



5040 
5045 
5047 
5050 



5O90 

5100 
5110 

?; ; ;^ 
5130 
•? ! 40 
5145 



3239 
3260 
3270 
3275 
5279 



DATA TO BEGIN, BEGRN, BEGUN, COMMEHCER 

DHTft TO BITE, BIT. BITTEN, MORDRE 

DRTfl TO BRERK. BROKE, BROKEN. CRSSEP 

DRTA TO BRING, BROUGHT, BROUGHT, RPPORTER 

DRTR TO BURN. BURNT, BURNT, BRULER 

DRTR TO BUY, BOUGHT, BOUGHT ■ RCHETER 

DRTR CRN, COULD, .POUVOIR 

DRTR TO CRTCH,CW_iGHT,CRUGHT,RTTRRPFP 

DRTR TO COME, CRME, COME, VENIR 

DRTR TO DO.BIB.DONE.FAIRE 

DRTR TO BREAM, DREflKT, DREAMT, REVER 

DRTR TO DRINK, DRANK, DR1JWKB01RE 

DfiTfl TO DRIVE, DROVE. DRIVEH.-CONDUIRE 

DRTR TO ERT.RTE. EATEN, MANGER 

DfiTfl TO FULL, FELL, FALLEN, TOMBEP 

DRTR TO FEEL, FELT. FELT, SENTIR 

BATH TO FIND, FOUND, FOUND TPOIJVER 

DRTR TO FLY, FLEW, FLOWN, VOLER 

DATA TO F0RGET,FORG0T.FORGOTTEN,OUBLIER 

DRTH TO GETc;ON),OOT<0W>,GOT<0N),MONTER DRNS 

DRTR TO GIVE, GfiVE, GIVEN, BONNER 

DRTH TO GO, WENT, GONE, ALLER 

DfiTfl TO HAVE, HBB, HfiD, AVOIR 

DRTfl TO HEAR. HEARD, HERRD. ENTENDRE 

DRTR TO HURT, HURT, HURT.BLESSER 

DATA TO KEEP, KEPT, KEPT, GRRDER 

DRTfl TO KNOW, KNEW, KNOWN. SflVO IP 

DATA TO LEAVE, LEFT. LEFT, OUITTEP 

DflTfl TO LOSE, LOST. LOST. PERBRE 

DRTfl TO MflKE,MflTJE,MRDE.FABRIGUER 

DflTfl TO MEET, MET, MET. RENCONTRER 

DATA TO PUT,PUT,PUT,NETTRE 

DATA TO READ, REflD.RERD. LIRE 

DflTfl TO SflV, SAID, SAID, B IRE 

DflTfl TO SEE, SFM, SEEN, VOIR 

BRTR TO SET<D0*»O.SRT(D0HN>.SflT(D01*tJ,AS5EniP 

DRTfl TO SHINE. SHONE, SHONE. BRILLER 

DRTfl TO SHOW, SHOWED, SHOWN. HONTRER 

DATA TO SPEAK-SPOKE, SPOKEN, pflNLER 

DfiTfl TO STAND, STOOD.STOOD.SE TENIR DEBOUT 

DRTfl TO TOKE, TOOK, TOKEN, PRENDRE 

DflTfl TO TELL,TOLB,T0LD,RflCONTER 

DflTR TO THINK. THOUGHT, THOUGHT, PENSEP 

DRTR TO UflKE UP, HOKE UP, WOKEN 1JP.SE REVFILLEP 

DRTA TO WRITE, WROTE-WPITEN-ECRIRE 



TI-99/4A 
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2860 GOSUB 3380 
2870 C-15 
2880 D=D2 
2890 GOSUB 3380 
2900 C=20 
2910 D=D3 
2920 GOSUB 3380 
2930 IF T=3 THEN 3050 
'2940 CALL VCHAFU 14.28.32.5) 
2950 A$="ENC0RE ? (0/N)" 

2960 FOR 1=1 TO LEN(A$) 
2970 CALL HCHAR(12,5+I,ASC(SEG$(A$,I,1))) 
2980 NEXT I 

2990 CALL KEY(0,K5,S5) 
3000 IF S5=0 THEN 2990 
3010 IF K5=78 THEN 3050 
3020 IF K5=79 THEN 3040 
3030 GOTO 2990 
3040 GOTO 2310 
3050 DE(1)=D1 
3060 DE(2)=D2 
3070 DE(3)=D3 
3080 X=l 
3090 X=2*X 

3100 IF X<-3 THEN 3090 
3110 X-INT((X-l)/2) 
3120 IF X=0 THEN 3240 
3130 FOR 1=1 TO 3-X 
3140 J=I 
3150 M»J+X 

3160 IF DE(J)<=DE(M)THEN 3220 
3170 Y=DE(J) 
3180 DE(J)=DE(M) 
3190 DE(K)=Y 
3200 J=J-X 

3210 IF J>0 THEN 3090 
3220 NEXT I 
3230 GOTO 3110 

3240 D$=STR$(DE(3))SSTR$(DE(2))SSTR$(0E(1)) 
3250 SC0RE=0 
3260 RESTORE 280 
3270 FOR 1=1 TO 18 
3280 READ DAT1$,DAT2 



3290 IF BSOflMlf THEN 3320 

3300 SC0RE=DAT2 

3310 GOTO 3340 

332C NEXT I 

3330 SC0RE=(VAL(D$)-220)/400 

3340 RETURN 

3350 RANDOMIZE 

3360 D=INT(6*RND)+1 

3370 RETURN 

3380 REM AFF1CHAGE DES 

3390 DIM A(3,2) 

3400 CALL CHAR(132, "0000000000000000") 

3410 CALL CHAR( 133, "0000181818180000") 

3420 CALL CHAR(134, "0000010101010000") 

3430 CALL CHAR(135,"0000808080800000") 

3440 CALL C0L0R( 13,2,16) 

3450 FOR 1=1 TO 3 

3460 FOR J=l TO 2 

3470 A(I,J)=132 

3480 NEXT J 

3490 NEXT 1 

3500 ON D GOTO 3510,3540,3570,3620,3670,3740 

3510 A(2,l)=134 

3520 A(2,2)=135 

3530 GOTO 3800 

3540 A(l,l)=133 

3550 A(3,2)=133 

3560 GOTO 3800 

3570 A(l,l)=133 

3580 A(2,l)=134 

3590 A(2,2)=135 

3600 A(3,2)=133 

3610 GOTO 3800 

3620 A(l,l)=133 

3630 A(l,2)=133 

3640 A(3,l)=133 

3650 A(3,2)=133 

3660 GOTO 3800 

3670 A(l,l)«133 

3680 A(l,2)=133 

3690 A(2,l)=134 

3700 A(2,2)=135 

3710 A(3,l)=133 



3720 A(3,2)=133 

3730 GOTO 3800 

3740 FOR 1=1 TO 3 

3750 FOR J=l TO 2 

3760 A(I,J)=133 

3770 NEXT J 

3780 NEXT I 

3790 GOTO 3800 

3§00 REM 

3810 FOR X»l TO 3 

3820 FOR V»l TO 2 

3830 CALL HCHAR(5+X,\f+C,A(X,Y)) 

3840 CALL S0UND(l,-5,0) 

3850 NEXT Y 

3860 NEXT X 

3870 RETURN 

3880 PRINT 

3890 PRINT G$;" GAGNE LA PARTIE.":: 

3900 GOTO 3920 

3910 PRINT G2$;"GAGNE LA PARTIE.":: 

3920 FOR 1=500 TO 1100 STEP 10 

3930 CALL S0UND(I0,I,0) 
3940 NEXT I 
3950 CALL CLEAR 

3960 PRINT "AU REV0IR "::: 

3970 STOP 

3980 PRINT "CHARGE : Chaque joueur joue" 

3990 PRINT "a son tour.un seul coup. II y" 

4000 PRINT "a 21 au pot." 

4010 PRINT "Quand les 21 points sont " 

4020 PRINT "repartis entre les 2 joueurs" 

4030 PRINT "c'est la decharge.":: 

4040 PRINT "DECHARGE :C'est celui qui a" 

4050 PRINT "perdu le coup precedent qui" 

4060 PRINT "commence et qui decide du" 

4070 PRINT "nombre de coups a jouer.":: 

4080 PRINT "nenette vaut 2 et bat les" 

4090 PRINT "tierces." 

4100 PRINT "3 des identiques battent 2 " 

4110 PRINT "astlde.(ex:666 bat 116).":: 

4120 PRINT "Vous pouvez jouer sans la" 

4130 PRINT "charge, chaque joueur a 10.":: 

4140 INPUT "enter":XX$ 

4150 GOTO 270 



NOUVEAUX POINTS DE VENTE 

Cette rubrique est ouverte a nos amis distributeurs. Tenez-nous au courant de I'ouverture ou des transforma- 
tions de vos magasins. 

HACHETTE va ouvrir une serie de magasins reunissant les ordinateurs familiaux, les micro-ordinateurs profes- 
sionnels et personnels. Les logiciels seront presents ainsi qu'une librairie tres complete. Ouverture de la pre- 
miere boutique le 19 octobre au 24 boulevard Saint-Michel a Paris 75005. 
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2430 

i'440 
2450 
2466 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
Z : A(] 
2550 
2560 
2576 
2580 
2SS8 
2600 
2610 
2621.1 
2630 
Z64i 
t 



CALL VCHAR(1Q,3*J+1,]44*(-1)-J,2) 

CALL VCHAR(9,3*J+],146) 

CALL HCHAR(9,3*J+2,98) 

NEXT J 

CALL VCHAR(]5,b,143,2) 

CALL »CHAR(20,6,143,2) 

GOTO 2640 

CALL VCHAR(13,11.14S,4) 

CALL »CHAR(5,12,143,2) 

CALL VCHAR(]5,5,143,2) 

FOR J=l TO 4 



CALL HCHAR(12+J,12,98) 



9 /AA 



NEXT J 

GOTO 2640 

FOR J=2 TO 4 

CALL VCHAR(5*J+3-J,3*J-l+J,143,J-l 

CALL VCHAR(5\)+Z-J,3*J-1*J,145) 

CALL HCHAR(4*J+2,4*J,98) 

NEXT 

CALL «CHAR(15,5,145,2) 

CALL HCHAR(6,4,98) 

CALL VCHAR(6,3,145) 

INPUT "ROUGE GAGNE— FAITES 'ENTER' 



2650 NEXT K 2670 

2660 CALL CLEAR 2880 

2670 RETORN 2690 

2680 REM 2900 

2690 IF KEY(1)>68 THEN 2840 2910 

2700 IF KEY(1)<65 THEN 2640 2920 

2710 IF KEY(2);52 THEN 2840 2930 

2720 IF KEY(2)M9 THEN 2840 2940 

2730 YPEG=(KEY(1)-64)*5*1 2950 

2740 XPEG=3*(KEY(2)-48)+KEY(l)-65 2960 

2750 FOR U>1 TO 4 2970 

2760 CALL GCHAR(YPEG+1-W,XPEG,HT) 2960 

2770 IF HT096 THEN 2820 2990 

2780 S(KEY(l)-64,KEY(2)-48,WH44+7 3000 
2790 CALL HCHAR(YPEG+1-U,XPEG,144+Z) 3010 

2800 REM 3020 

2810 GOTO 2940 3030 

2820 NEXT U 3040 

2830 REM 3050 
2840 FOR 1=1 TO 5 

2850 CALL HCHAR(5,17+1,ASC(SEG$("ERR0R",I 
2860 NEXT I 
:A$ 



CALL SOUND(300,-2,0) 

CALL 50UNO(300,-3,0) 

FOR DELAY=1 TO 300 

NEXT OELAY 

CALL HCHAR(6, 18, 32, 5) 

ERROR-1 

GOTO 2970 

REM 

GOTO 2970 

REM 

RETURN 

FOR SET=1 TO 8 

CALL C0L0R(SET,4,4) 

NEXT SET 

RETURN 

FOR SET-1 TO 8 

CALL C0L0R(SET,2,4) 

NEXT SET 

RETORN 
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SEMAINE 
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POUR »OUS PERMETTRE DE 

NOUS ENVOVER VOS 
PROGRAMMES, LE NUMERO 2 
D'HEBDOGICIEL NE SERA EN 
VENTE QUE LE 21 OCTOBRE. 



A VOS CLAVIERS ! 




le premier tome est deja un best seller, voici 
deux nouveaux recueils de logiciels et un manuel 
d'initiation a l'assembleur : votre ordinateur 
Texas Instruments t.i - 99 / 4 a n-a plus rien 
a envier a personne ! 



vSFJXet PROGRAMMES 
pour 

rcrdlrs»;>«' , --T*a! 
TEXAS INSTRUMENTS 



Des programmes originaux et 
passionnants avec graphismes, 
couleurs et sons pour explorer les 
etonnantes possibility du Ti Basic : 
jeu de dames, declaration d'impots, 
bowling et421 ou encore backgammon, 
morpion en 3 dimensions, sous-marin 
ou suivi de chequiers. 
Plus de 40 programmes et plus de 
6000 lignes par tome I Sans aucun 
periphfirique ni module complemen- 
taire. 



Des programmes rapides et 
performants en Basic 6tendu : tapir, 
parachutiste, gestion complete de 
plusieurs comptes en banques, poker, 
batailles de I'espace, quiz, bataille 
navale, theme astral, crocodile, 
traitement de textes ... + de 40 
programmes I 

L'assembleur enfin accessible a tous : 
initiation progressive a ce langage 
proche du langage machine qui 
optimise les performances du Ti 99. 
La connaissance du Basic et le module 
mini-mfjmoire suffisent pour se 
former a cette technique. 



EN VENTE CHEZ LES DISTRIBUTEURS TEXAS INSTRUMENTS OU PAR CORRESPONDANCE. 
BON DE COMMANDE A RETOURNER A shift editions 27, avenue du General Foy 75008 PARIS 




JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 3 





DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES 
Nom/Prenom I I I I 1 I I I 



I I I I I I I I 

I I I I I I Code Post.1 I I I I I I 

vine III I I I I I 

DATE : SIGNATURE : 



TOME 1 D 155 F 
TOME 2D 1 55 F 



TOME 3 D 1 55 F 

ASSEMBLEUR D 195 F 



CONTRE REMBOURSEMENT FRANCE + 20 F D 
CONTRE REMBOURSEMENT ETRANGER +30FD 

REGLEMENT JOINT |_I_l_|_|0jOjF 

cheque D ccp D 




ondroTde ,A> 



Variante du celebre PACMAN, la 
cassette ANDR0IDE ne de"cevra pas 
les nombreux adeptes de ce jeu : 
la beaute du dessin, la richesse 
des couleurs et la rapidite du 
jeu son t meme plutot I 
1 'avantage d'ANDROIDE. 
. Le logiciel est concu pour une 
facilite d' utilisation o p t i m a 1 e 
des instructions tres simples 
permettent de r e d e* f i n i r la 
position des touches de commande 
de clavier, de choisir parmi les 
six niveaux de difficulty 
proposes et de revenir a ze"ro a 
tout moment du jeu. De quoi 
faire de rapide progres. 
. Le jeu : un labyrinthe aux 
nombreux couloirs jonches de 
pastilles d'energie bleues que 
votre "glouton" avale en se 
deplacant. Quatres robots sort 
Uriels a sa poursuite et sa 
Sffulf defense est de sp rendre 
1 c plus » ,i i ■ ■ .! -■ in . ■ n i possible a 
une des dix bornes clignotantes 
qui lui permettent d'inverser 
les roles et de faire fuir ses 
poursuivants. De tres clas- 
siques passages lat^raux font 
passer d'un cote de l'e'cran a 
1 'autre et ralentissent la 
course des robots. Plus 
original, un passage secret 
central vous transporte instan- 
tane*ment vers un des cotes de 
1'ecran et vous sauve la vie a 
condition de choisir la bonne 
porte d ' entree . 

. Le de"compte des points est en 
affichage permanent ainsi que le 
meilleur score. Nous regrettons 
pourtant ]'impossibilite*de 
jouer a plusieurs, encore que la 
difficult^ croissante du jeu 
interdit les parties intermi- 
nabl es . 

. Nous n'avons ma 1 he u re u semen t 
pas pu tester les manettes de 
jeu, ma is la possibilite' de 
choisir soi- meme les touches de 
deplacement au clavier facilite 
la prise en main. 
. Cette tres belle realisation 
en langage machine utilise avec 
brio les possibilites du 
Spectrum (16 et 48 k) et nous 
lui souhaitons le succes qu'elle 
meri te. 



SEYMOUR 




taite par des eollaborateurs de 
la redaction (les programmes 
non signes) el ils ne participe- 
ront pas au concours, les autres 
sont des programmes qui nous 
ont ete envoyes par des particu- 
liers qui nous ont connus par la 
publicite- faite et ils attendent 
que vous tapiez leur programme 
et que vous votiez pour eux lors 
du premier appel aux urnes. 

Gerard CECCALDI 



